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Weszliśmy w nowy rok wydawa¬ 
nia TA Ubiegły zakończył się ós¬ 
mym numerem, a w Cym roku 
zamierzamy, krocząc równo z kalen¬ 
darzem, dostarczyć Państwu dwu¬ 
nastu numerów Tajemnic. 

Dziękuję za wszystkie listy, zawar¬ 
te w nich uwagi l sugestie przyczynia¬ 
ją się do lepszego dopasowania TA do 
Waszych potrzeb. Dziękuję za nade¬ 
słane programy Są wśród nich lepsze 
I gorsze dzieła Najlepsze drukujemy 
w pierwszej kolejności Tym Innym, 
nieco słabszym, przychodzi niekiedy 
czekać dłużej na swą kolej. Jeśli 
chcesz otrzymać szybką odpowiedź 
o losie swego utworu, przyślij zaadre¬ 
sowaną do siebie i płaconą karlę po¬ 
cztową lub kopertę To samo dotyczy 
wszelkich pytań kierowanych do TA. 


Powtarzają się sygnały, że TA nie 
docierają do niektórych zakątków 
naszego kraju Jest to wyłącznie " za¬ 
sługą” kulejącej dystrybucji. Skargi 
w tej sprawie prosimy kierować do 
lokalnych oddziałów RUCH-u 


W każdy poniedziałek od 16.00 do 
17 30 czynny Jest w redakcji punkt 
konsultacyjny dla użytkowników pa¬ 
kietu QA Przychodźcie, dzwońcie. 


^edafóor 



Tajemnice Atari Pismo użytkowników ATARI X1VXE skr. poczt. 702. 35-959 Rzeszów 2 
tel. (Rzeszów) 374-71 wewn. 250 lub 282. Redaktor naczelny: Janusz B. Wiśniewski 
współpracownicy: Daniel Kleczyński, Jaromir Lechowicz, Marek Pasek. Jarosław Syrylak 
opracowanie merytoryczne: L. K. AVALON; opracowanie graficzne: Danuta Bieńkowska 
Wydawca: Agencja Wydawnicza "Albatros". Adres redakcji: Rzeszów Targowa 1, pok. 801 
Druk: Rzeszowskie Zakłady Graficzne, ul. płk. Lisa Kuli 19. Indeks 379972 


2 
























Prawda o dodawaniu 
binarnym 

Za wykonanie operacji dodawania 
w procesorze odpowiada wydzielona 
część układu zwana ALU Chor do¬ 
dawane są do siebie dwa bajty, 
w Istocie Jednak każdy bit traktowa 
nyjest z osobna Jednakowo Wygód 
nie Jest więc spojrzeć na ALU Jak na 
zespól Jednobllowych sumatorów 


do znacznika C w ten sposób, ze 
przyjmuje Jego dotych zasową war 
tosc, zas wyjście przeniesienia 
z najstarszego bitu przekazuje swój 
stan Jako nową wartość C 

Przećwicz sobie, używając kartki 1 ołów 
ka kilka operacji dodawania tak, jak robi 
to ALU, np %100100 + %100I00 

%i 100100 + 100000 %ioomoo 

+ % 1100100 Oczywiści bit przeniesie¬ 
nia wchodzący do ALU (czyli znacznik C) 
musi być zerem aby wynik by! poprawny 


dwójkowy nie powinno sprawić ni 
komu kłopotu W najgorszym razie 
można się posłużyć kalkukatorem 
XLFrlenda Powtórne wykonanie 
Run spowoduje zakończenie pro 
gram u i przestawienie rejestrów 
w stan początkowy Używając roz 
kazu BRK nigdy nie zapominaj że 
Run zawsze wykonuje program 
maszynowy od adresu widniejącego 
w dole ekranu (P=....), a nie zawsze 





Ostatnie dodawanie daje wynik 
O. Mozę to początkowo wydać się 
dziwne dodawano wszak dwie Licz 
by rożne od zera zdziwienie to jed 
nak minie, gdy uświadomisz sobie 
ze % 100000000 jest liczbą dzlewtę 
clobltową. nie może się więc zmie¬ 
ścić w jednym bajcie, wystający bit 
znalazł się w znaczniku C Ogólnie: 
Jeżeli dodawanie kończy się z usta 
wlonym znacznikiem C, to znaczy, 
ze wynik nie zmieścił się w prze¬ 
znaczonym nań miejscu 


Każdy z nich ma trzy wejścia, ar 
gument 1 argument 2, wejście 
przeniesienia oraz dwa wyjścia 
wynik, wyjście przeniesienia We 
Jscla traktowane są równorzędnie, 
sumator po prostu dodaje bity któ¬ 
re w postaci sygnałów elektrycz¬ 
nych pojawiają się na nich Są za 
tern cztery możliwości 


suma bitów wy C wynik 

0 0 0 
10 1 
2 10 
3 11 


Myślę, ze każdy bez trudu zauwa 
zy. ze bity na wyjściach odpowiadaj;} 
reprezentacji dwójkowej liczby otrzy 
manej z dodania bitów wejściowych 
Sekretem, który scala sumatory 
w ośmiobitową grupę, jest szeregowe 
połączenie wyjść z wejściami prze 
niesienia lak, ze przeniesienie 
z młodszego bitu przekazywane* Jest 
do starszego Wejście przeniesienia 
najmłodszego bitu przyłączone Jest 


Wykorzystaj Qulck Assembler do 
sprawdzenia wyników, np 

0PT %10101 

0RG $480 

CLC 

LDA *%100100 

ADC #%100100 

BRK 

RTS 

END 

Rozkaz ADC inicjuje wykonank 
przez ALU operacji dodawania Pler 
wszy argument pochodzi z akumula 
lora. drugi zas z komorkl pamięci 
wskazanej odpowiednim trybem ad 
resowanla Wynik zostaje zapisany 
do akumulatora, w miejsce argu 
mrntu. Rozkaz BRK spwwoduje za 
wleszenle programu bez zerowania 
rejestrów, można więc odrzylar wy 
nik w dolnym wierszu ekranu (A-. ) 
Przełożenie zapisu szesnastkowego, 
u/ywanego przez system QA, na 


Liczby ze znakiem 

Można wszakze spiojrzee na 
ostatni przykład inaczej Umówmy 
się ze istnieją liczby dodatnie 
I ujemne Te ostatnie rozpoznaje: 
się po tym, ze ich siódmy bit (naj 
starszy) ma wartość 1. % 10011100 
jest taką właśnie liczbą Ponieważ 
%1 100100 to tyle co dziesiętne 
100 a w sumie dają 0 stąd łatwo 
wydedukować, ze %10011100 oz 
nacza liczbę 100 

Ogólnie, aby przekształcić dwój 
kowy zapis liczby w liczbę jej prze¬ 
ciwną, należy zanegować wszystkie 
bity (czyli zera zamienić w jedynki 
a Jedynki w zera) 1 do tak otrzyma 
nej liczby dodać 1 Na przykładzie 
liczby 100 wygląda to tak 

%01100100 (liczba 100) 
%10011011 (negacja) 

% 10011100 (zwiększona o 1) 

Realizacja tego przekształcenia 
w Języku asemblera 
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LDA #100 100 

EOR #%11111111 negacja 
CLC 

ADC #1 doda] 1 

Przy okazji: uważna analiza 
przedstawionej wyżej zasady dzia¬ 
łania ALU pozwala na wniosek, ze 
para rozkazów 

CLC 
ADC #1 

powodująca zwiększenie o 1 zawarto 
śel akumulatora działa tak samo Jak 

SEC 

ADC #0 

ponieważ ustawienie znacznika 
C przed dodawaniem jest rowno 
znaczne z dodaniem dodatkowej Je¬ 
dynki do sumy argumentów 

Jeżeli traktujemy bajt Jako osmlo- 
bltową liczbę dwójkową bez znaku, 
to w oczywisty sposób może ona 
przybierać wartości z zakresu od 
0 do 255. Jeśli jednak chcemy bajt 
widzieć Jako liczbę zc znakiem, to 
największą liczbą dodatnią (skaso¬ 
wany 7 bil) Jest %01111111. czyli 
127. zaś najmniejszą liczbą ujemną 
jest %10000000. czyli -128 Oczywi¬ 
ście różnica między liczbami ze zna¬ 
kiem 1 bez znaku Istnieje tylko w na 
szej głowie, liczba -1 1 liczba 255, to 
w gruncie rzeczy to samo 

Prawda o odejmowaniu 

Informacja o tym. Jakoby proce 
sor 6502 posiadał rozkaz odejmO' 
wanta. Jest nieco przesadzona 
W rzeczywistości rozkaz SBC’ Jest 
rozkazem dodawania, różni się od 
ADC tylko tym ze drugi argument 
(ze wskazanej komórki pamięci) 
przed dodaniem zostaje zanegowa¬ 
ny. Gdy więc spróbujemy wykonać 
takie "odejmowanie", np : 

CLC 
LDA #5 
SBC #5 

to otrzymamy nic 0, lecz liczbę 
%111111 i 1. czyli 1. Aby otrzymać 
poprawny wynik odejmowania, 
trzeba "pomóc" procesorowi l do¬ 
dać jeszcze 1 Najprościej zrobić to 
przez ustawienie na wstępie znacz¬ 
nika C (rozkazem SEC) Dopiero 
takie współdziałanie (procesor nc 
guje argument, a my dodajemy 1) 
powoduje zamianę argumentu w 11 


czbę przeciwną i w rezultacie wła¬ 
ściwe odejmowanie. 

Wiedza o metodzie, odejmowania 
pomaga czasem w kłopotliwych sy¬ 
tuacjach Dodawanie jest prze¬ 
mienne, ale odejmowanie nie Gdy 
trzeba odjąć zawartość komórki 
x od akumulatora, piszemy: 

SEC 
SBC x 

To proste Co Jednak zrobić, by 
odjąć zawartość akumulatora od 
komórki Zdarzyło ml się widzieć 


rozwiązanie z użyciem dodatkowej 

komorki 

STA y 
SEC 
LDA X 
SBC y 

lub bez angażowania dodatkowej 
pamięci. 

LDX x 
STA X 
SEC 
TKA 
SBC X 


Tu Jednak zamazuje się dotych 
czasową zawartość x Tym zasem 
najprościej można to zrobić to tak 

SEC 

EOR #255 
ADC X 

Arytmetyka wielobajtowa 

Zakres llezb 0,255 (lub 
-128 127), które dają się wyrazić 
Jednym bajtem rzadko wystarcza 
w praktyce tym bardziej, ze adresy 
zapisuje się na ogół dwoma bajta¬ 


mi Dobrze byłoby więc mleć pod 
ręką 16 bitową ALU. a w najgor¬ 
szym razie dwie 8-bitowe i wyjście 
przeniesienia jednej połą zyc z wej¬ 
ściem drugiej Mając tylko jedną 
ALU. trzeba sobie radzić na raty. 
W poniższym przykładzie dodamy 
liczbę 920 (23 * 40) do adresu pa 
mięci obrazu aby otrzymać adres 
ostatniego wiersza na ekranie, 

EKRAN EQU $58 
ADRES EQU $CC 
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Na wstępie należy wyzerować 
wejście przeniesienia 

CLC 

Dodawanie rozpoczyna się od 
młodszych bajtów- 

ŁDA EKRAN 
ADC <920 
STA ADRES 

Znaczek "<" tłumaczony jest przez 
asembler tak jak "#". z tą różnicą, ze 
użyty zastanie tylko młodszy bajt ar¬ 
gumentu. W wyniku dodawania 
młodszych bajtów znacznik C uzyska 
wartość przeniesienia z najstarszego 
bitu. która weźmie udział w dodawa¬ 
niu starszych bajtów: 

ŁDA EKRAN+1 
ADC >920 
STA ADRES+1 

Znak ’>" ma znaczenie podobne 
do "<", lecz tym razem wzięty zosta¬ 
nie starszy bajt argumentu. Aby 
weryfikować efekt lego działania 
umieść Jakiś znak, np. 

ŁDA #' 1'-32 

w miejscu o dwie kolumny odle¬ 
głym .. 

LDY #2 

od wyliczonego adresu: 

STA (ADRES ),Y 

W wyniku wykonania lego rozkazu 
pojawi się w trzeciej kolumnie ostat 
niego wiersza ekranu znak V Teraz 
postaw pytajnik dwa wiersze wyżej- 

SEC 

ŁDA ADRES 
SBC <80 
STA ADRES 
ŁDA ADRES+1 
SBC >80 
STA ADRES+1 
ŁDA #'?'-32 
STA (ADRES),Y 

Oczywiście każdy widzi że >80 to 
po prostu 0, lecz użyty tu zapis lepiej 
obrazuje, do czego ta liczba służy. Nie 
można także pominąć tego drugiego 
odejmowania, choć argument jest 
równy 0, wszak wartość znacznika 
C pozostała po pierwszym odejmowa¬ 
niu, wskazująca na obecność lub brak 
przeniesienia (przy odejmowaniu zwa 
nego "pożyczką"), może spowodować 
zmniejszenie starszego bajtu Pamię¬ 


tajmy (Jak to pokazano wyżej), ze 
wyzerowany C powoduje dodatko¬ 
we zmniejszenie wyniku (pożyczkę) 
Odwrotnie, ustawiony C pozostawi 
bajt ADRES 1 bez zmian Bazując 
na tej wiedzy można nieco skrócić 
powyższy fragment: 

SEC 

ŁDA ADRES 
SBC #80 
STA ADRES 
BCS PYT 
DEC ADRES+1 
PYT ŁDA # ' ? ' -32 

STA i ADRES),Y 

Dotyczy to. rzecz jasna, tylko odej¬ 
mowania liczby jednobajtowej od 
dwubajtowej. Analogicznie można 
uprościć dodawanie liczby krótkiej 
do długiej Jak? Pomyślcie sami. 

Oczywiście arytmetyka nie koń¬ 
czy się na liczbach dwubajtowych 
Można sumować (lub ode mowaćl 
ze sobą dowolnie długie ciągi baj¬ 
tów, pamiętając o kolejności (od 
najmłodszego bajtu do najstarsze¬ 
go) 1 bacząc, by pomiędzy operacja¬ 
mi na poszczególnych bajtach nie 
zamazać znacznika C Przykład 
często popełnianego błędu przy do¬ 
dawaniu liczb 4-bajtowych. 

LDX #0 

CLC 

DODAJ ŁDA N1,X 
ADC N2,X 
STA Nl,X 
INX 

CPX #4 
BNE DODAJ 

Rozkaz CPX zeruje znacznik C. 
w wyniku czego całe dodawanie 
jest do kitu! 

Porównania 

Rozkaz porównania CMP jest ze 
sposobu działania zbliżony do roz¬ 
kazu SBC lecz nie wymaga wstę¬ 
pnego ustawiania znacznika C (jest 
on ustawiany samoczynnie) Poma¬ 
ga to przy porównywaniu pojedyn¬ 
czych bajtów, lecz komplikuje uzy 
cle tego rozkazu w porównaniach 
liczb wlelobajtowych Drugą ważną 
różnicą Jest to. ze wynik odejmowa¬ 
nia nigdzie się nie zapisuje, akumu¬ 
lator (a w przypadku bliźniaczych 
rozkazów CPX, CPY - rejestr X, Y) 
i argument pozostają niezmienione. 


W wyniku wykonania rozkazu CMP 
ustalają się wartości znaczników C. 
Z, N co bywa wykorzystywane w na¬ 
stępnych rozkazach (zwykle po po¬ 
równaniu następuje skok warunko¬ 
wy) Znaczniki zachowują się Identy¬ 
cznie jak w przypadku rozkazu SBC 
Ustawiony znacznik Z oznacza, ze po¬ 
równywane liczby były Jednakie Zna¬ 
cznik C bierze się pod uwagę przy po¬ 
równaniu liczb bez znaku. Skasowa¬ 
ny oznacza, ze zawartość akumulato¬ 
ra była mniejsza od argumentu. 
W przypadku liczb ze znakiem rozpa¬ 
truje się znacznik N, którego ustawie 
nie mówi. ze zawartość akumulatora 
byki mniejsza nlz argument. 

Aby porównać liczbę wlclobajto- 
wą należy posłużyć się rozkazem 
odejmowania Tylko pierwszą parę 
bajtów można obsłużyć rozkazem 

CMP, z czego jest taki pożytek ze 
nie trzeba dbać o znacznik C. 

ŁDA NI 
CMP N2 

To porównanie ustawia odpowie¬ 
dnio znacznik przeniesienia dla ko¬ 
lejnych rozkazów 

ŁDA Nl+1 
SBC N2+1 

1 tak dalej, az do ostatniego (najstar 
szego) bajtu Znacznik C dla liczb 
bez znaku, a N dla liczb ze znakiem 
wskazuje, czy pierwsza z liczb była 
mniejsza od drugiej, czy nie mniej 
sza Niestety, ta metoda nie pozwała 
odróżnić równości od większości 
gdyż znacznik Z ustawiany bywa dla 
każdego bajtu z osobna. 
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SCRAP LOADER 


Przedstawiony program pozwala odzyskiwać uszko¬ 
dzona programy lub Ich fragmenty z plików zapisanych 
na ta mle rozkazem CSAVE. Zdarza stę bowiem nie¬ 
raz, ze plik takt ulegnie "podkasowaniu’ w pobliżu koń¬ 
ca (np wskutek pomyłki w ustawieniu licznika) 1 choć 
wlęk; ość programu Jest na kasecie, nie da się w zwy¬ 
kły sposób odczytać 

Po przepisaniu poniższego programu należy go na 
grać na taśmę, ponieważ podczas wykonywania swoje 
go zadanta "odzysktwacz" zostanie skasowany Urucho¬ 
miony program prosi pojedynczym sygnałem o wczyta 
nie wsdllwego programu. Po dojściu do uszkodzenia 
lub końca komputer przez kilka sekund wydaje dźwię¬ 
ki wyrażające Jego niezadowolenie, po czym wyświetla 
listing odzyskanego programu. Pojawiający się przy 
tym komunikat o błędzie nr 15 może martwić Już tylko 
malkontentów 


CQ 

10 REM 

NM 

20 REM : 

ZA 

30 REM : , 

IP 

40 REM : 

CU 

50 REM *- 

IT 

60 A=1536 

IM 

70 READ B 

SF 

80 A=USR( 

KT 

100 

REM - 

HI 

110 

DATA 

OU 

120 

DATA 

WG 

130 

DATA 

SW 

140 

DATA ; 

QW 

150 

DATA 

XX 

160 

DATA 

ET 

170 

DATA : 

UT 

180 

DATA 

PO 

190 

DATA 

YS 

200 

DATA 

II 

210 

DATA 

ZF 

220 

DATA 

JL 

230 

DATA : 

UQ 

240 

DATA : 

OP 

250 

DATA 

XR 

260 

DATA 1 

AD 

270 

DATA 

BA 

280 

DATA 

OL 

290 

DATA 

DU 

300 

DATA 

LS 

310 

DATA 

HG 

320 

DATA 

YP 

330 

DATA 

SO 

340 

DATA 

ER 

350 

DATA 

XX 

360 

DATA 

LR 

370 

DATA 

WQ 

380 

DATA 

CK 

390 

DATA 

IG 

400 

DATA 


410 

DATA 

NM 

420 

DATA 


Kilka słów o sposobie działania: Uszkodzony pro¬ 
gram traktowany jako ciąg bajtów, zostaje wczytany 
prze/ kanał # 1 pod typowy dla Basic u adres 
1792 -256 Następnie "odzysklwacz" odczytuje z na¬ 
główka programu adres tablicy zmiennych, odnajduje 
rozmiar pierwszego wiersza 1 dalej, odliczając długości 
kolejnych wierszy, poszukuje końca programu. Ostat 
nl, uszkodzony wiersz zostanie zastąpiony przez roz¬ 
kaz LIST w trybie bezpośrednim, po czym do stosow¬ 
nych komórek na stronie zerowej wpisywane są wekto 
ry od yskanęgo programu, a na zakończenie wyświetla 
stę pt łny Jego listing 


Marek Omlrski 

Od redakcji: Program ten Jest dostosowany do stan¬ 
dardowej konfiguracji ATARI z magnetofonem. Nie bę¬ 
dzie więc działał poprawnie w obecności DOS-ów 
COS ów. systemów TURBO Ud. 

jtfa p?» no $9 'tfi 1 z\ l b c )\ ‘ w z 4 zs * vLuva o- 



$ £,\:m ■zrbfiKAb B FOKt; A,B-A A-l 
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PIŁKA 


Kolejny Juz w TA prograiń Rafała Mantłuka ze Szcze 
clna Imituje lot piłki odbijającej się o brzegi ekranu 
1 o paletkę, którą możemy poruszać za pomocą Joystl 
cka. Program wykorzystuje przerwanie VBLANK l dzla 
ła niezależni! od sterującego programu w Basleu umo¬ 
żliwia więc stworzenie w prosty sposób własnej gry ty¬ 
pu "Arkanold" 

OR 10 DIM A$ (26): A=* 1536: TRAP 90 
TQ 20 TRAP 60:READ A$:1-1:H=0:TRAP 20 
VE 30 N=ASC(A$(I))-48:N=N-7*(N>9):I=I+1 
XB 40 X=16*X+N:H=1-H:IF H=1 THEN 30 
DM 50 POKE A,X:X=*0:A-A+1 :GOTO 30 
YU 60 END 

WZ 1000 DATA 68A20086CEE886CF8E6F028E0A 
QE 1010 DATA D0E886D08E1DD0A9 2E 8D2 F02A9 
LO 1020 DATA 64 8D07D4A9 3285CDA9 7 88D02D0 
AA 1030 DATA 85D1A0FFA900998F6688D0FAA9 
AC 1040 DATA FF8D6167 8D62 6 7A044A206A907 
AV 1050 DATA 4C5CE4A5CCF052A5CD1865CF85 
ZQ 1060 DATA CDC9329004C9C89009A5CF49FF 
LI 1070 DATA 18690185CFA5CE1865D085CEF0 
VY 1080 DATA 0DC957B009AD0DD0F025A5D030 
HH 1090 DATA 1EASD049FF18690185DOA6CEF0 
HX 1100 DATA 14AD0DD085CBF00D8A1865D065 
UJ 1110 DATA D06'jD085CE8D1ED020C306AD78 
XT 1120 DATA 02C90FF01FC90BD00BA5D1C933 
CJ 1130 DATA 9015A9FD4CB806A5D1C9BEB00A 
UG 1140 DATA A9031865D185D18D82D04C62E4 
QZ 1150 DATA A209A4CEBDD706998F66C8CA10 
BE 1160 DATA F6A5CD8D01D060000000183C3C 
ZR 1170 DATA 18000000 

Uaktywntenle programu następuje po wykonaniu 
X=USR(1536) 

a wyłącza się go klawiszem RESET. Piłkę uruchamia 
się rozkazem 

POKE 204,1 

zas wyłącza przez 

POKE 204,0 

Wartość 0 w komórce 203 oznac lzję piłki z do¬ 
lną ścianą Komórki 207 1 208 zawierają prędkość pił¬ 
ki odpowiednio w poziomie 1 w plonie (dla ruchu w le¬ 
wo 1 w górę wpisuje się 256-prędkość) W plonie nie 
należy przekraczać prędkości 3. a w poziomie 7 

Autor dołącza królic przykład zastosowania powyz 
szego programu, na którym łatwiej będzie p ześledzlć 
jego możliwości Oczywiście przed uruchomieniem tego 
przykładu trzeba wyk nać główny program 

Redakcja przepras/.; serdecznie za przekręcenie na¬ 
zwiska autora progr iu "Basic Tracker" z TA 6/91 
Był nim także Rafał Man luk 



IM 10 X*USR{ 1536 ): DIM C$ (1) :C$=*CHR$ (125 ) 
CA 20 POKE 204,1 :D=0; ? C$:POKE 752,1:L=»15 
:POKE 203,1:POKE 706,L:POSITION 5,23:? 

"WYNIK:”;:W=0 

OA 30 FOR F=5 TO 10 STEP 2:POSITTON 8+D,F 
:?"o o o o o o o ":NEXT F 
SR 40 POKE 53278,l:POKE 203,1 
RL 50 POSITION 12,23:? W;:IF PEEK{53253)= 
4 THEN 90 

SY 60 IF PEEK(203)=0 THEN L«=L-3:GOTO 110 
IM 70 IF INT(RND(0)*50+1) = 10 THEN D»1-D:G 
OTO 30 

SZ 80 GOTO 50 

BC 90 W=W+1:IF PEEK(207)>128 THEN POKE 20 
7,1:GOTO 40 

TV 100 POKE 207,255:GOTO 40 
DW 110 IF L<0 THEN POKE 204,0:POSITION 15 
,12:? 'GAMĘ OVER":GOTO 130 
LO 120 POKE 706,L:GOTO 40 
YC 130 ON STRIG(0) GOTO 130:GOTO 2B 
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A jednak FORTH! 

Długo zastanawiałem się nad 
tym, czy miłośnicy komputerów 
w Polsce są Jeszcze zainteresowani 
programowaniem Mam nadzieję, 
że po wielu latach bezkarnego pi¬ 
ractwa została jednak spora liczba 
amatorów programowania Uwzglę 
dniając panujące nam miłościwie 
prawodawstwo, wszyscy programi¬ 
ści powinni byli wymrzeć jak dlno 
zaury Jeżeli tak się nie stało, nie 
Jest to na pewno zasługą naszych 
polityków Tym wytrwałym którzy 
nie dali się ponieść bieżącym prą¬ 
dem i nie założyli pirackiej meliny, 
chciałbym zaproponować Jedno 
z najbardziej efektywnych narzędzi 
programowania Jakie znam Narzę¬ 
dziem tym jest język FORTH Nie 
|est on zbyt popularny w naszym 
kraju Domyślam się. z czego to wy 
nlka i spróbuję tego dociec w dal 
szej części artykułu W tym momen 
cle mogę tylko stwierdzić że. przelot¬ 
na znajomość z Panem FORTHem 
trwa krótko, gdy jednak poznamy 
go lepiej, staje się naszym najle¬ 
pszym przyjacielem na wiele lat 
Możliwości, jakie daje nam 
FORTH są zbliżone do Języka ma¬ 
szynowego, a sam zapis Jest bar 
dzle: przejrzysty OTH nie Jest 
właściwie Językiem, lecz systemem 
programowan la 

Dlaczego system? 

Każdy początkujący programista 
pragnie, aby dano mu do ręki goto¬ 
we narzędzie programowania. 
Ucząc się stopniowo poszczegól 
nych instrukcji, nabiera umiejętno¬ 
ści w posługiwaniu się wybranym 
Językiem Po pewnym czasie pozna 
je Język dokładnie 1 dostrzega Jego 
ograniczenia. Nie chodzi lu tylko 
o szybkość działania, lecz także 
o możliwość realizacji dowolnego 
algorytmu. Pamiętam. Ile miałem 
trudności w Atari Basic, chcąc 
umieścić dane jbrazu wewnątrz 
programu To struktura Języka 



stwarzała trudności w realizacji 
Jakże prostego zadania Ostalecz 
nie udało ml się to osiągnąć bardzo 
okrężną drogą Wykonując dowolną 
pracę (programowanie wbrew po 
zorom lo też praca) stajemy przed 
wyborem czy wa/nlejsze Jest na¬ 
rzędzie rzy metoda realizacji za 
mierzonego celu Złe narzędzie 
zmusi nas do straty wielu g<xl/.ln 
na opracowanie metody Każdy 
z czytelników zgodzi się chyba 
z lym, ze należy dobrać efektywne 
narzędzie, aby ułatwić sobie zada¬ 
nie Rzecz Jednak w tym, ze unlwer 
salnych narzędzi nie ma Co by się 
Jednak stało, gdyby nie używać go¬ 
towego narzędzia, lecz jedynie od¬ 
powiednie jego elementy takie klo¬ 
cki LEGO które można składać na 
rożne sposoby Ułatwiłoby to zna¬ 
komicie naszą pracę. Zamiast szu 
kar narzędzia' do realizacji naszego 
celu. po prostu sami Je tworzymy 
Dostosowuj* my Jego możliwości do 
naszego sposobu myślenia (ergono¬ 
mia) a nie odwrotnie Daje to zna 
komlte etekty przy realizacji nawet 
bardzo skomplikowanych zadań. 
Właśnie na takiej filozofii został 
opracowań system FORTH 

Części systemu 

W ramach systemu FORTH znaj¬ 
dziemy zawsze ASEMBLER oraz 
EDYTOR EDYTOR służy nam do 
wprowadzania dowolnego tekstu 
z klawiatury t zapamiętaniu go 
w takiej formie w pamięci zew¬ 
nętrznej ASEMBLER to także ele¬ 
ment FORTHa, umożliwia tworze¬ 
nie programu bezpośrednio w Języ¬ 
ku asemblera 1 łączenie go z pro¬ 


gramem głównym Korzystanie 
z ASEMBLERA jest bardzo proste 
1 odbywa się w ramach systemu 
FORTH Odczuwamy to tak Jakby¬ 
śmy tworzyli program w Jednym 
zintegrowanym FORTHo-ASEMB- 
LERze Myślę, że ta zaleta zachęci 
wielu zaawansowanych programl 
słów do poznania systemu FORTH 
Doświadczon- programista wie do¬ 
brze Jakie znaczenie ma łatwość 
stosowania asemblera w językach 
wyższego rzędu. 

Szczególnie Jednak polecałbym 
ten Jęzvk wszystkim początkującym 
adeptom programowania FORTH 
posiada wszystkie zalety Języka BA 
SIC (jak bezpośredni dostęp do 
każdej stworzonej procedury), nie 
dziedzicząc jego wad Każdy naj¬ 
mniejszy fragment programu może¬ 
my przetestować prawie natych 
miast po wp owadzenlu do kompu¬ 
tera Wszystkie nazwy zmiennych, 
procedur Itp są kodowane w pro¬ 
gramie 1 dostępne w każdej chwili 
dla programisty Ma to oczywiście 
tę wadę. ze wydłuża program o dłu¬ 
gość zastosowanych nazw, mimo lo 
FORTH jest najbardziej pamlęeio 
oszczędnym Językiem Jaki udało się 
stworzyć Wynika to z metody kom¬ 
pilacji oraz zastosowań go sposob 
zapisu. Przykładem oszczędności 
w gospodarowaniu pamięcią może 
być porównanie instrukcji wywoła 
nia podprogramu w Języku FORTH 
1 Asemblerze 6502. W pierwszym 
przypadku zajmuje ona 2 bajty, 
w drugtrn 3. a trzeba wiedzieć, ze 
FORTH składa się praktycznie 
z samych wywołań podprogramów. 
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Extended fig FORTU 

Chciałbym bliżej zapoznać czytel¬ 
ników z Impementacją o tej nazwie 
na małe Atarl. Język FORTH Istnie¬ 
je także na Inne komputery, w tym 

1 16 bitowe, co zapewnia programl 

ścle łatwe przejście na maszyny 
wyższej klasy. Język ten bardzo 
przystępnie przedstawił Jan Rusz 
czyc w swojej książce pt. "Poznaje¬ 
my FORTH". Wszystkich czytelni¬ 
ków zachęcam gorąco do poznania 
tej publlkacj 

Jako praktyk używający syste¬ 
mu fig FORTH dłuższy czas. chciał 
bym przedstawić metody progra¬ 
mowania liczne usprawnienia języ¬ 
ka, ego obsługi oraz ciekawe pro 
cedury 1 ich wykorzystanie Może 
uda ml się przedstawić kasetową 
wersję FORTHa, opracowaną prze¬ 
ze mnie Tu już słyszę głosy czytel ■ 
nlków- przecież my mamy ten Język 
na kasecie 1 to w kilku wersjach! 
Mogę tylko stwierdzić że wersje te 
zrobiły więcej szkody niż przyniosły 
pożytku Raczej wcześniej niż póź¬ 
niej każdy entuzjasta FORTHa po¬ 
siadający magnetofon zauważy że 
mimo szczerych chęci poniesie kię 
skę na samym początku swojej 
twórczości Czy może być Inaczej, 
jeżeli nie mamy możliwości zapisu 
wersji źródłowej na kasetę’ W ten 
sposób na podstawie zdekompleto¬ 
wanej wersji powstaje zła opinia 
o języku. Aby uzyskać możliwość 
współpracy z magnetofonem nale¬ 
ży stworzyć odpowiedni system 
operacyjny zarządzający zapisem 
na taśmie Należy jednak pamiętać 
że nic nie zastąpi pracy ze stacją 
dysków 

Drugim elementem skutecznie 
zniechęcającym do programowania 
w tym Języku (także ze stacją dys¬ 
ków) Jest wręcz fatalny stan 
dardowy EDYTOR Na dysku za 
wlerającym Ext nded fig FORTH 
znajdują się az dwa edytory Jeden 
gorszy od drugiego. Aby zapewnić 
pełen komfort pracy, napisałem 
swój własny EDYTOR Był to Jeden 
z pierwszych programów napisa¬ 
nych przeze mnie w Języku FORTH 
co potwierdza fakt, że nie wymaga 
to od programisty szczególnych 
umiejętności. EDYTOR ten chciał¬ 
bym zaproponować czytelnikom 
(do wklepania) w kolejnych nume¬ 


rach TA..Doplero wtedy z czystym 
sumieniem będę mógł przedstawić 
możliwości praktycznego wykorzy¬ 
stania języka. 

FORTH - podstawy 

Pierwszą Instrukcją, jaką chciał ¬ 
bym opisać. Jest VLIST. Tu muszę 
poświęcić parę słów nazewnictwu 
w języku FORTH. Zamiast nazwy 
"procedura", znanej z Innych Języ¬ 
ków. stosujemy określenie "słowo 
Słowami będziemy nazywali wszy 
stkle podstawowe Instrukcje Języka 
oraz te stworzone przez użytków 
nlka Zamiast nazwy "program" sto¬ 
sujemy określenie Słownik" Słów 
nlk to obszar pamięci zajmowany 
przez wszystkie słowa Do wyświet ¬ 
lenia wszystkich nazw znajdują¬ 
cych się w słowniku, służy słowo 

VLIST 

Sprawdzimy Jego działanie 
w praktyce Po załadowaniu języka 
FORTH na ekranie pojawi się na 
zwa Implementacji, np fig FORTH 
1 1 Teraz możemy wywołać nasze 
słowo, pisząc Jego nazwę na ekra¬ 
nie 1 zatwierdzając oczywiście kia 
Wiszem RETURN To co zobaczy 
my jest podstawowym słownikiem 
języka FORTH dostępnym dla pro¬ 
gramisty Nie należy się przerażać 
mnogością słów bo w większości 
wypadków (do napisania przecięt 
nego programu) wystarczy znajo¬ 
mość kilkudziesięciu. NąJważniej 
szym i najczęściej stosowanym sło¬ 
wem (znakiem) jest spacja Odgry 
wa ona ogromną rolę podczas pisa 
nla programu źródłowego Spacja 
odzlela Jedno słowo od drugiego 
t z tego powodu nie może być stoso¬ 
wana wewnątrz nazwy słowa Po¬ 


znajmy teraz dwa bardzo ważne 
słowa Języka FORTH, są to: : - 
dwukropek 1; - średnik Oba służą 
do definiowania nowych słów 
1 wprowadzania Ich do słownika. 
Napiszmy więc na ekranie naszego 
komputera następującą sekwencję: 

: SŁOWNIK VLIST ; 

Pamiętajmy o spacjach w odpo¬ 
wiednich miejscach Zatwierdzamy 
zapis klawiszem RETURN 1 co? Na 
ekranie nic się nie stało, tylko poją 
wił się napis OK potwierdzający że 
wszystko się udało. Wywołujemy Je 
szcze raz znane nam słowo VLIST 
i widzimy na samym szczycie słów 
nlka nowe słowo - SŁOWNIK" To 
nasze działanie spowodowało 
wprowadzenie do słownika słowa 
o tej nazwie Dwukropek polnfor 
mował system że występujący po 
nim napis będzie nazwą nowo two¬ 
rzonego słowa Po nazwie nastąpił 
ciąg słów Istniejących już w słowni¬ 
ku w naszym przypadku tylko sło¬ 
wo VLIST Całość zamknął śred¬ 
nik oznaczający koniec definicji 
słowa Co będzie wykonywało na 
sze nowe słowo łatwo się domyślić 
ale sprawdźcie sami Na tym przy 
kładzie widać jak prosto możemy 
tworzyć nowe słowa Jeżeli ktoś ma 
ochotę może zastąpić wszystkie 
podstawowe słowa języka FORTH 
polskimi odpowiednikami, tworząc 
w ten sposób polską wersję języka 

Jeżeli zainteresował czytelników 
ten artykuł prosiłbym o listy 
z uwagami i oczekiwaniami doty 
czącyml dalszych odcinków od kry 
wających tajemnice Pana FORTHa. 

Roland Pcmtoła 
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Pożytek 
ze znacznika V 

Kiedy patrzymy na bajt 
jak na liczbę ze znakiem, najstar 
szy bit określa znak tej liczby Ska 
sowany bit oznacza liczbę nleuje 
mną, A zatem wartość bezwzględna 
liczby wynika z pozostałych sied¬ 
miu bitów Lecz nasz sposób inter¬ 
pretacji liczb nijak nie wpływa na 
ALU wszelkie operacje są wykony 
wane jednakowo. To prowadzi nie 
raz do nieporozumień: 

CLC 

ŁDA #60 liczba dodatnia 
ADC #80 liczba dodatnia 
BRK ujemny wyniki (-74) 
RTS 

Suma dwóch liczb dodatnich po¬ 
winna być tez liczbą dodatnią, lecz 
wynik przekroczył zakres dopusz 
czalny dla jednobajtowej liczby ze 
znakiem (127). Otrzymany wynik 
(poprawny Jako liczba bez znaku) 
Jest bez sensu w konwencji liczb ze 
znakiem. Tę sytuację sygnalizuje 
właśnie znacznik V. Jest on zwany 
znacznikiem przepełnienia 1 wska¬ 
zuje, ze liczba zmieniła znak w spo¬ 
sób niekontrolowany Dzieje się 
tak, gdy z dodawania liczb dodat 
nich wychodzi liczba ujemna lub 
gdy różnica liczby ujemnej l dodat 
niej (powinna być Jeszcze bardziej 
ujemna) Jest liczbą nieujemną. 

Poza podanym zastosowaniem oraz 
unikalnym użyciem po rozkazie BIT 
(V przyjmuje w wyniku wykonania te¬ 
go rozkazu wartość szóstego bitu ar 
gumentu), znacznik V nie znajduje ln 
nego wykorzystania. 

A przy okazji, az dziw bierze, jakie 
niestworzone dyrdymały wypisują 
różni autorzy na temat znacznika V 
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Jako zagorzały majsterkowicz, od pierwszego spot- 
kania z małym ATARI chciałem znaleźć sposoby Jego 
praktycznego wykorzystania. Standardowe urządzenia 
służące do komunikacji komputera z otoczeniem nie 
umożliwiają "namacalnego" oddziaływania na przed¬ 
mioty martwe Wykonanie bardzo prostego interfejsu 
pozwoli na włączanie 1 wyłączanie, dowolnego urządze¬ 
nia elektrycznego 

Złącza Joysticków 
związane są z JednobaJ- 
towym rejestrem (por¬ 
tem) pod adresem 
54016. znanym jako 
PORT A Sygnały od sty¬ 
ków kierunku w joystickach mają wpływ na poszczę 
gólne bity rejestru tak. Jak opisuje to poniższa tabelka 


Nr 

Gniazdo 1 

Gniazdo 2 

1 

Joystick do góry (bit 0) 

Joystick do góry (bit 4) 

2 

Joystick w dół (bit 1) 

Joystick w dół (bit 5) 

3 

Joystick w lewo (bit 2) 

joystick w lewo (bit 6) 

4 

Joystick w prawo (bit 3) 

Joystick w prawo (bit 7) 

5 

paddle 1 

paddle 3 

6 

przycisk 

przycisk 

7 

+5V 

+5V 

8 

masa 

masa 

9 

paddle 0 

paddle 2 


Normalnie wszystkie bity PORT A są ustawione. Po¬ 
chylenie Joysticka powoduje skasowanie odpowiednie¬ 
go bitu. 

Tajemnica rejestru PORT A polega na tym. ze pod 
tym samym adresem znaj¬ 
dują się dwa rejestry: re¬ 
jestr danych, ten opisany 
powyżej, oraz rejestr kie¬ 
runku przepływu danych, 
którego bity decydują 
o tym. czy odpowiedni bit 
rejestru danych pracuje Ja¬ 
ko wejście, czy jako wy¬ 
jście Normalnie pod adre¬ 
sem 54016 znajduje się re¬ 
jestr danych. Aby uzyskać 
dostęp do rejestru kierun¬ 
ku, należy wyzerować drugi 
bit bajtu 54018. Ponieważ 


normalnie Jest tam wartość 60. więc piszemy 
10 POKE 54018.56 

Teraz można określić kierunek przepływu danych 
20 POKE 54016,255 

ustawia wszystkie bity portu A Jako wyjścia. Na koniec 
należy przywrócić dostęp do rejestru danych. 

30 POKE 54018,60 

Od tej pory każdy rozkaz 

40 POKE 54016,X 

spowoduje pojawienie się na odpowiednich końcówkach 
złączy Joysticków sygnałów w standardzie TTL zgodnych 
z bitami liczby X. 

Po zastosowaniu odpowiedniego Interfejsu (dekoder 
kodu BCD np. na układach LICY 74154) jesteśmy 
w stanie sterować nawet 256 urządzeniami* 

W tym artykule zajmiemy się rozwiązaniem najpro¬ 
stszym - sterowaniem jednym urządzeniem elektrycz 
nym przy użyciu minimalnej liczby dodatkowych ele¬ 
mentów - możliwym do wykonania przez najmniej wta¬ 
jemniczonych. Warto w tym miejscu nadmienić, ze 
ATARI jest komputerem dość odpornym na różne pró¬ 
by zniszczenia go Dlatego nie należy się specjalnie 
obawiać manipulowania przewodami przy gniazdkach 
Joysticków Przypadkowe, krótkotrwałe zwarcie lub 
omyłkowe połączenie nie powinno uszkodzić kompute¬ 
ra Wszystkie wyjścia układu PIA na Joysticki oraz FI- 
RE są zabezpieczone rezystorami 220 ohm, wejścia 
paddle (0..3) są doprowadzone przez rezystancje 1.8 
kohm. Najbardziej niebezpieczne jest wyprowadzenie 
zasilania +5V, sąsiadujące z wyprowadzeniem masy - 
bardzo łatwo o zwarcie! Co prawda nie uszkodzimy 
żadnego układu komputera, ale a warta zasilacza lub 
nawet przepalenie ścieżki na płytce drukowanej nie na¬ 
leży do przyjemności 


Redakcja Tajemnic A tarł Informuje o możliwości wysyłkowego nabywania wszystkich 
programów zawartych w dowolnym numerze pisma, nagranych na kasetę (tylkc 
w transmisji normalnej) lub na dyskietkę W skład zbioru wchodzą wszystkie listingi, za¬ 
mieszczone w wybranym przez Zamawiającego numerze Tajemnic. 

Cena wersji kasetowej wynosi 25.000 zł. zaś dyskowej 23.000 zł. W cenę wliczo¬ 
ny jest koszt nośnika, nagrania, opakowania oraz opłaty pocztowe. Same listingi są 
za darmo. 

Zainteresowanych ofertą prosimy o dokładne wypełnienie zamówienia (na od¬ 
wrocie) 1 po naklejeniu go na kartę pocztową, wysłanie na adres redakcji poda 
ny w stopce. 

Uwaga! Prosimy o nleprzysyłanle wcześniej należności, bowiem będzie ona regu 
lowana przy odbiorze przesyłki. 
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Oto schemat naszego interfejsu 


OZ 80 POKE H, 0:GRAFHICS 0:END 


\ o o o o7 i J 

\-Vf / —K 





TQ 

100 

REM - odczyt zegara - 


UV 

110 

T=256*PEEK(18)+PEEK(19) 


OY 

120 

T=25 6 *T+PEEK(20) 


SW 

130 

IF T>=4320000 THEN T=0:GOSUB 400 


ZF 

140 

RETURN 

C\3 

CM 

VY 

200 

REM - konwers 3 a na g,m,s - 

\ 

cc 

KK 

210 

S=INT(T/50):M=INT(S/60):S=S-60*M 

rsi 

DG 

220 

G=INT(M/60):M=M-60*G:RETURN 

<o 

>> 

CL 

300 

REM - konwersja na t - 

-4-i 

$ 

YZ 

310 

T=50*(S+60*(M+60*G)): RETURN 


IK 

400 

REM - zapis zegara - 


Gniazdko ~22CV' 


Jakież to proste! Tranzystor może być praktycznie 
dowolny, typu n-p-n np- BC 107 9, BC 237 9, BC 
211. Dioda krzemowa. Impulsowa lub prostownicza 
dowolnego typu. Przekaźnik powinien mleć cewkę na 
napięcie 5 lub 6V I o rezystancji nie mniejszej nlz 50 
ohm (by zbytnio nie obciążać zasilacza komputera). Je¬ 
żeli będziemy sterować urządzenia zasilane napięciem 
sieciowym, to styki przekaźnika muszą być do tego 
przystosowane (te wymagania spełnia dostępny obe 
cnie w sklepach przekaźnik typu RM-81P) Podłączenie 
do gniazdka Joysticka można wykonać przy pomocy 
gniazda ELTRA 881 lub podobnych, dostępnych 
w sklepach UN1TRY 1 na giełdach UWAGA" 1 Wszystkie 
połączenia po stronie napięcia sieciowego muszą być 
wykonane 1 zaizolowane bardzo starannie! 

Zastosowania tego prostego układu są bardzo liczne. 
Przy pomocy krótkich programów możemy włączać 1 wy¬ 
łączać np radio o określonych godzinach lub z określoną 
zęstotllwośclą Jako pierwszy przykład przedstawię pro¬ 
gram "BUDZIK* dla wyjątkowo opornych śpiochów Pro¬ 
gram pozwala ustawić aktualny czas (OPTION) oraz go¬ 
dzinę budzenia (SELECT). Radio włączone na pełną moc 
oraz światło zbudzi chyba każdego , 


BL 10 GRAPHICS 2:CA=54018:PA=54016:H=732 
XQ 20 POKE CA,56:POKE PA,255:POKE CA,60 
NQ 30 GOSUB 700:POKE H,0:GOSUB 900 
BZ 40 GOSUB 800:K=PEEK(53279) 

ST 50 ON K GOSUB 140,140,500,140,600,700 

UJ 60 IF NOT PEEK(H) THEN 40 

AO 70 POKE CA,56:POKE PA,0:POKE CA,60 


KX 410 Y=INT(T/256):Z=T-256*Y 

UG 420 X=INT(Y/256):Y“Y-256*X:POKE 18,X 

QE 430 POKE 19,Y:POKE 20,Z:RETURN 

HK 500 REM - wprowadzenie czasu - 

KM 510 7 :? :? "Aktualny czas (G,M,S) 

MW 520 TRAP 510:INPUT G,M,S:TRAP 40000 
AL 530 GOSUB 300;GOSUB 400:GOTO 900 

WJ 600 REM - wpr. czasu budzenia - 

JQ 610 ? :? :? "Czas budzenia (G,M) 

ED 620 TRAP 610:INPUT G,M:TRAP 40000 
MT 630 S=0:GOSUB 300:TB-T:B»1:GOTO 900 

UY 700 REM - blokada budzenia - 

TV 710 B0:POKE PA,B:RETURN 

CW 800 REM - wy$wietlanie - 

UB 810 GOSUB 100:GOSUB 200:POSITION 0,4 
FI 820 ? #6;"CZAS ";G;":";M;":";S;" 

UN 830 IF NOT B THEN 870 
PZ 840 IF T>=TB THEN POKE PA,B 
KW 850 T=TB:GOSUB 200 

SU 860 7 #6;"ALARM ";G;":";M;" ":RETURN 

YF 870 7 #6;" ":RETURN 

WL 900 REM-informacje- 

OK 910 7 CHR$(125):POKE 752,1 
LE 920 7 "OPTION - ustaw czas" 

ZZ 930 7 "SELECT - ustaw budzenie" 

ZN 940 7 "START - kasuj budzenie" 

AA 950 7 "HELP - koniec"; 

UV 960 POKE 752,0:RETURN 

Drugi programik przeznaczony Jest dla fotoamatorów 
"AUTOMAT IX) NAŚWIETLANIA" Jest bardzo precyzyj¬ 
nym zegarem ciemniowym, a w połączeniu z foto rezysto¬ 
rem także światłomierzem Foto rezystor (np. RPP 130) 
należy podłączyć do nozkl 7 (+5V) 1 9 (paddle 0) Wejścia 
paddle - "wlosełka" są obsługiwane przez układ POKEY 
(POtentlometr and KEYboard tnterface). a właściwie jego 
częśc - przetwornik analogowo-cyfrowy. Zamienia on na 
pięcie dostarczone na wejście na sygnał cyfrowy przy] mu 
Jąey wartości z zakresu 0 .228. Można Je odczytać z reje¬ 
strów POTO..POT3 (53760,.53763L 

P\ 


Zamawiam nagrane na 


□ 


kasecie 


X 



skr. poczt. 702 
35-959 Rzeszów 2 


dysku 


programy 

w 


zamieszczone 
numerze TA 
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Z poziomu baslcu stan wiosełek odczytujemy Instru¬ 
kcją PADOLE z odpowiednim numerem ( 0 , 1 , 2 . 3 ), np, 
? PADDLE(O) 

Program działa w ten sposób, te wciśnięcie spacji 
powoduje włączenie powiększalnika na określony czas, 
klawisze + 1 * pozwalają zmienić nastawienie czasu, 
natomiast RETURN włącza powiększalnik oraz pomiar 
oświetlenia aż do odwołania (ponownego dotknięcia 
klawiatury) 

CI 10 GRAPHICS 18:CA 54018:PA 54016 

XQ 20 POKE CA,56:POKE PA,255:POKE CA,60 

LD 30 CH«764:HLP»732:POKE HLP,0:S0»5 

FK 40 SETCOŁOR 0,4,6 

LA 50 POKE PA,0:S«S0:GOSUB 400 

LW 60 K-PEEK(CH):IF K-255 THEN GOSUB 200 

PP 70 IF NOT PEEK(HLP) THEN 50 

AP 80 POKE CA,561POKE PA,0:POKE CA,60 

PA 90 POKE H,0:GRAPHICS 0:END 

TQ 100 REM- odczyt, zegara - 

OV 110 T-256*PEEK(18)+PEEK(19) 

UM 120 T”256*T+PEEK(20):RETURN 

FX 200 REM - reakcja na klawisz - 

FE 210 POKE CH,255:S0-S0-(K-6)+(K-7) 

El 220 IF S0<1 THEN S0-1 
KS 230 IF K<>33 THEN 280 
KD 240 GOSUB 100:T1«T+50*S:POKE PA,1 
PD 250 GOSUB 100:S«INT{(Tl-T+49)/50) 

RO 260 GOSUB 400:IF T<T1 THEN 250 
ZM 270 RETURN 

CS 280 IF K<>12 THEN RETURN 
AR 290 POKE PA,1.POSITION 5,7 
WT 300 ? ł6;"MROK-”;PADDLE(0);" " 

PX 310 IF PEEK(CH)»255 THEN 290 
CL 320 POKE CH,255:POKE PA,0:RETURN 

Cs 400 REM - wy$wietlanie 

AW 410 POSITION 5,5:? 16;"CZAS-";S;" - 
ZE 420 RETURN 



Posługiwanie się światłomierzem wymaga trochę do¬ 
świadczenia, Przy fotografii czarno-białej najlepiej 
ustalić pewien czas naświetlania na stałe, a za pomocą 
'gołego* fotorezystora mierzyć jasność podobnych mo¬ 
tywów np, bieli 1 dokonywać korekty wielkością przy 
słony. Wskazane jest wykonanie specjalnej obudowy 
dla fotoelementu. Jedno z możliwych rozwiązań przed¬ 
stawione jest na rysunku. 


Wojciech Mścluiujewskl 


: W::::::. ttW W W# i 


PrenumeraTA 


Liczba egzemplarzy 
każdego numeru 

cena 1 
egzemplarza 

3-mles 

6-mies 

1 

8900 

28 700 

53 400 

2 

8300 

24 900 ' 

49800 

3 

8000 

24 000 

48000 

| 4 

7650 

22 950 

45600 

5 do 9 

7300 

21900 

43 800 

10 lub więcej 

6750 

20 250 

40 500 


W celu zamówienia prenumeraty należy wypełnić czytel¬ 
nie blankiet wpłaty na konto (dostępny na pocztach I ban 
kach) podając na odwrocie Imię, nazwisko 1 adres zamawia¬ 
jącego oraz Liczbę egzemplarzy danego numeru wraz z okre¬ 
sem prenumeraty. Pieniądze prosimy wpłacać na konto: 
A g toe jm Wy da wnł ca s "Almiro*", nL Wys p l« ó « kln g n 11 RmmAw 
Bank Prs smy łowo-Kandlowy ID Oddalał R auów 
ar 336*07-3854-130 

W wypadku zmiany ceny TA będą wysyłane do mo¬ 
mentu wyczerpania wpłaconych pieniędzy. Reklama¬ 
cje dotyczące nieotrzymania określonego numeru ga¬ 
zety prosimy wnosić na adres redakcji po upływie 
około 14 dni od daty ukazania się go » kioskach. 



matówka 
(np. kalka techniczna) 


fotorazystor 


a 

karton) 
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Miesiąc temu zapoznaliśmy się 'na sucho’ z trybami 
1 funkcjami graficznymi Aby oswoić się trochę z pozna¬ 
nymi wiadomościami, napiszemy programik przybliża¬ 
jący problemy posługiwania się grafiką 1 animacją Bę 
dzle to prosclutka gra polegająca na strzelaniu do celu 
Na początek należy określić Jej zasady W losowym 
punkcie ekranu pojawiać się będzie tarcza do której 


60 GOSUB 6000:R£M wynik 
70 GOTO 10 

Prawda że ładnie wygląda*? Niestety, nie działa 1 nie 
będzie, dopóki nie napiszemy wszystkich podprogra 
mów Jeszcze Jedna uwaga Celowo zostawiłem tak du¬ 
żo wolnych wierszy między samym programem a pler 
wszym podprogramem. Jak również między nimi, bo- 



po wycelowaniu oddamy strzał jednocześnie 
z dwóch dolnych rogów ekranu Jako ze ca 
łość będzie nieco większa nlz pisane przed 
tern programiki postaramy się napisać nasze 
dzieło 'porządnie' stosując tzw programo¬ 
wanie metodą zstępującą Polega ono na 
opracowaniu danego zagadnienia od najhar 
dziej Ogólnych załozen I stopniowym przecho¬ 
dzeniu do przekładania na Język komputera 
coraz to proslszyc h części zadania Praktycz 
nie w każdym z Języków wysokiego poziomu 
Istnieją możliwości zrealizowania 
sposobu rozwiązania określonego problemu 
Program buduje się jakby z cegiełek 
żujących kolejne zadania Każda z nich 
się również składać z cegiełek 
cych z kolei Jeszcze prostsze problemy 
dojdziemy do prostych 1 oczywistych działań które bez 
trudu można przełożyć na komendy danego Języka 


wlt m w tej fazie pisania nie Jestem w stanie dokładnie 

przewidzieć He miejsca zajmą kolejne części. 


W dialekcie ATARI BASIC zmuszenie interpretera do 
wykonania podprogramu (takiej 'cegiełki'} niestety nie 
Jest wcale eleganckie Służy do tego celu komenda 


Bierzmy się powoli do dzieła. Zaczynamy od pler 
wszej cegiełki Zapytajmy się najpierw, czy ktokolwiek 
ma ochotę grac w nasze wypociny 


GOSUB nr_uiiers7a (GOS.) 

gdzie nr wlers7a określa początek wycinka programu 
zakończonego komendą 

RETURN (RET.) 

W innych Językach, a także w nowszych mutacjach 
baslcu dozwolone Jest wywoływanie podprogramów za 
pomocą Ich nazwy a nic numeru wiersza, dzięki cze¬ 
mu pisany program staje się przejrzystszy W naszym 
przypadku pozostaje tylko komentowanie kolejnych 
komend GOSUB lub zastosowanie małej sztuczki 
W związku z tym, ze nr wtersza nie musi hyc stałą, 
można tam używać zmiennych o nazwach odpowled 
nich do zadań realizowanych przez podprogram Ich 
wartości ust damy wcześniej jako numery wierszy od 
których będą rozpoczynały się kolejne podprogramy 
Spróbujmy zapisać bardzo ogolnle nasz program 

10 GOSUB 1000:REM gramy? 

20 GOSUB 2000 :REM ustaw tryb ekranu 
30 GOSUB 3000 :REM rysuj tarcze 
40 GOSUB 4000 :REM celowanie 
50 GOSUB 5000:R£M strzał 


1000 REM gra czy koniec? 

1010 ? "1-gra, 0-koniec M ; 

1020 INPUT GRA:IF GRA THEN RETURN 
1030 GRAPHICS 0:END 

Gierkę zrealizujemy w najwyższym trybie rozdziel 
czoscl z okienkiem tekstowym umożliwiającym wypl 
sywanle wyniku Napiszmy więc 

2000 REM tryb wyświetlania obrazu 
2010 GRAPHICS 8 
2020 RETURN 

Ta część okazała się bardzo prosta do zrealizowania 
l można Ją było właściwie napisać od razu w programie, 
a nie Jako podprogram, ale niech Juz tak zostanie. Dalej nie 
pójdzie tak łatwo Przystępujemy do rysowania tarczy Dla 
ułatwienia żyda będzie ona kwadratowa. Aby rysowała się 
w miarę szybko, składać się na nią będą trzy kwadraciki 
najmniejszy o boku długości 6 punktów ekranowych nastę¬ 
pne o 3 z każdej strony szersze Aby całość rysowała się 
w nieokreślonym miejscu na ekranie, musimy współrzędne 
środka tarczy wybrać losowo Posłuży nam do tęga funkcja 

RND liczba 














ATARI 



'Hans Kloss', to nowa gra przygodowo - zręcznościo¬ 
wa, która z pewnością zyska uznanie miłośników "moc¬ 
nych wrażeń". Gracz wciela się tu w postać superagen- 
ta J-23, który właśnie otrzymał kolejne zadanie: zdo¬ 
być 1 przekazać wywiadowi aliantów plany tajnej broni 
V-2 - straszliwego wynalazku stworzonego przez hitle¬ 
rowskich naukowców w celu przeważenia losów wojny 
na korzyść podupadającej Rzeszy. Aby to udaremnić, 
należy przedostać się do pilnie strzeżonej tajnej bazy 
Hitlera, zwanej Wilczym Gniazdem. W jej korytarzach 
czyha na naszego bohatera wiele niebezpieczeństw 
1 śmiercionośnych niespodzianek. Czy Jego spryt, do¬ 
świadczenie 1 fenomenalny refleks okażą się wystarcza¬ 
jące by uniknąć zastawionych z szatańską przebiegło¬ 
ścią pułapek 1 zdobyć przemyślnie ukryte plany? Od te¬ 
go zależą przecież losy świata pogrążonego w najokrut¬ 
niejszej z wojen... 

Ta niezwykle Inlersująca 1 wciągająca gra może do¬ 
starczyć wiele satysfakcji, a także znakomitej zabawy 
nawet najbardziej wymagającym amatorom kompute¬ 
rowych pojedynków. Nie można tu narzekać na mono- 



tonlę przeciwnie, agent przemierzający liczne koryta 
rze I poziomy "Wilczego Gniazda’ musi być stale czujny 
przygotowany na najgorsze Nie sposób przewidzieć 
z którego zakrętu korytarza padnie seria sterowanego 
fotokomórką karabinu maszynowego Zadanie nie Jesl 
proste, gdyby Jednak takie było gra sprawiałaby o wie 
le mniej przyjemności Tu rzeczywiście można się po 
czuć bohaterskim superagentem trzymającym w swych 
rękach losy świata 

Warto podkreślić, ze "Hans Kloss" posiada znakom! 
tą grafikę która może zrobić na graczu spore wraże 
nie. Szczególne uznanie należy się za świetne plansze 
znajdujące się na początku I na końcu gry Należy rów 
nlez zwrócić uwagę na staranne dopracowanie szczegó¬ 
łów. a także na pewne akcenty humorystyczne któryc h 
wprowadzenie Łagodzi nieco napięcie towarzyszące gra 
czowi przez cały czas wykonywania misji Nie można 
nie wspomnieć także o bardzo dobrej muzyce śwtetnh 
dobranej Jako tło dla dramatycznej 1 niebezpiecznej 
akcji Co prawda umieszczenie przygód dzielnego agen 
ta w wielopoziomowym labiryncie nte Jest może rozwlą 
zanlem zbyt nowatorskim jednakże profesjonalizm wy 
konania 1 rozmaitość zaskakujących pułapek może do 
statecznie zaabsorbować gracza, by nie zwrócił na to 
większej uwagi. 

Z czystym sumieniem można więc polecić "Hansa 
Klossa" nawet najbardziej wybrednym miłośnikom gier 
komputerowych Z pewnością nie poczują się rozczaro¬ 
wani 


Basia 


Zainteresowanych prosimy o kontakt (zamówienie) na 
adres podany na ostatniej stronie. Przewidujemy rozpo¬ 
częcie sprzedaży w połowie lutego (cena 35.000 zł.) 

AVALON 

iummmiiĄiu 

ItOłłjiUJIS! 

Laboratorium Komputerowe ”AVALON" uprzejmie In¬ 
formuje o rozstrzygnięciu konkursu dla nabywców "Au¬ 
tomatu Perkusyjnego" Nagrodę główną - drukarkę - 
wylosował Janusz Jaworowski z Wrocławia, natomiast 
posiadaczami Joysticków zostali: Bartłomiej Włudyka 
z Bielska Białej, Dominik Brzeziński z Lęborka. Kon¬ 
rad Kłodarskl z Gdańska, Arkadiusz Swat z Kędzlerzy- 
na-Koźle, Zdzisław Buczkowski z Rydłutow. Paweł Do¬ 
brzyński z Warty, Krzysztof Kabis z Katowic. Janusz 
Dyna z Krakowa, Marcin Lewandowski z Torunia, Woj¬ 
ciech Radajewlcz z Bydgoszczy. Wszystkim laureatom 
serdecznie gratulujemy. Zapraszamy do udziału w na 
stępnym konkursie L.K. "AVALON" (szczegóły na str 10). 
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Ora polega na zestrzeleniu Jak największej liczby 
wrogich statków kosmicznych, które osłaniane są 
przez statek-tarczę. Orający ma 16 pocisków do ze¬ 
strzelenia każdej eskadry. Po ich wyczerpaniu gra koń¬ 
czy się. Po zestrzeleniu całej eskadry składającej się 
z 9 pojazdów zapas pocisków Jest uzupełniany. 

Aby otrzymać grę zdatną do uruchomienia przy po¬ 
mocy DOS-u lub COS-u, należy widniejące niżej wier¬ 
sze DATA połączyć z programem Zgrywus+ z TA 6/91 
(z poprawką z TA 7/91). Wykonanie tego programu po¬ 
zwoli zapisać grę na kasecie lub dyskietce w postaci 
samodzielnego pliku binarnego. 

Grę uruchamia się przez naciśnięcie START, dowol¬ 
nego klawisza lub przycisku dżojstlka. Sterownie odby¬ 
wa się przy pomocy dżojstlka lub klawiszy kursora 
oraz klawisza SHIFT. Podczas gry naciśnięcie klawisza 
CLEAR powoduje powrót do planszy tytułowej, a ESC 
powrót do programu nadrzędnego. 

IJ 1000 REM *-* 

HY 1002 REM t Dalej niz Sionce : 

SS 1004 REM t autor: Dariusz Zolna : 

YY 1006 REM : (c) 1992 Tajennice ATARI : 

JP 1008 REM *-* 

LC 1010 DATA FFFF00882D8F6820228D20078C 
JP 1020 DATA ADFC02C9FFF0038D7A8DA9FF8D 
HM 1030 DATA FC02A514C514F0FCADFC02C91C 
EM 1040 DATA D0034C2D8DCD7A8DF0B620E38C 
PO 1050 DATA A55818695C85B0A559690085B1 
FS 1060 DATA A213A00FA90091B08810F9A5B0 
RH 1070 DATA 18692885B0A5B1690085B1CA10 
FE 1080 DATA E7A55818693885B0A559690085 
QM 1090 DATA B1A002A99091B08810FBA9018D 
KR 1100 DATA DA028DD902209C8CA9908D748D 
TM 1110 DATA 8D758D8D768DA9068D408DA907 
JY 1120 DATA 8D718D201D89AEFC02AD7C02D0 
QU 1130 DATA 02A206AD7D02D002A2078EFC02 
MT 1140 DATA ADFC02C906F004C946D00ACB40 
MA 1150 DATA 8D1005A9008D408DADFC02C907 
AT 1160 DATA F004C947D00FEE408DAD408DC9 
SR 1170 DATA 0E3005A90D8D408DADFC02C91C 
SO 1180 DATA D0034C2D8DADFC02C936F032AD 
TG 1190 DATA 7B8D1003209C8CAD738DD00AAD 
UY 1200 DATA 728DC91030034CBD8BAD748DC9 
YI 1210 DATA 993011AD758DC999300AAD768D 
ST 1220 DATA C99930034CBD8B4C8C88A90020 
MM 1230 DATA 5E8C4C0188A9FF8DFC02A228AD 
MT 1240 DATA 0BD4D0FBCAD0F8AE558DBD508D 
NQ 1250 DATA 8D4E8DEE558DAD558DC9043005 
ZJ 1260 DATA A9008D558DAE558DBD478D8D45 
GJ 1270 DATA 8DA55818698485B0A559690085 
RH 1280 DATA B1A206A00FA90091B08810FBA5 


LEJ IMiż 
SŁOŃCE 
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NB 

1290 

DATA 

OM 

1300 

DATA 

AB 

1310 

DATA 

WZ 

1320 

DATA 

GD 

1330 

DATA 

QP 

1340 

DATA 

BR 

1350 

DATA 

NJ 

1360 

DATA 

TM 

1370 

DATA 

JR 

1380 

DATA 

NP 

1390 

DATA 

UL 

1400 

DATA 

OU 

1410 

DATA 

MU 

1420 

DATA 

HG 

1430 

DATA 

SC 

1440 

DATA 

JN 

1450 

DATA 

ZT 

1460 

DATA 

QS 

1470 

DATA 

WC 

1480 

DATA 

XF 

1490 

DATA 

IX 

1500 

DATA 

MM 

1510 

DATA 

MB 

1520 

DATA 

BX 

1530 

DATA 

PA 

1540 

DATA 

BX 

1550 

DATA 

BF 

1560 

DATA 

JT 

1570 

DATA 

BY 

1580 

DATA 

TX 

1590 

DATA 

EQ 

1600 

DATA 

LD 

1610 

DATA 

NA 

1620 

DATA 

LJ 

1630 

DATA 

TW 

1640 

DATA 

SA 

1650 

DATA 

RX 

1660 

DATA 

LU 

1670 

DATA 

LN 

1680 

DATA 

OT 

1690 

DATA 

MX 

1700 

DATA 

XX 

1710 

DATA 

XM 

1720 

DATA 

XB 

1730 

DATA 

VG 

1740 

DATA 

VU 

1750 

DATA 

QB 

1760 

DATA 

MC 

1770 

DATA 

ux 

1780 

DATA 

WI 

1790 

DATA 

DM 

1800 

DATA 

WF 

1810 

DATA 

Ul 

1820 

DATA 

XK 

1830 

DATA 

JB 

1840 

DATA 

JW 

1850 

DATA 

RB 

1860 

DATA 

OL 

1870 

DATA 

NB 

1880 

DATA 

DJ 

1890 

DATA 

TG 

1900 

DATA 

PC 

1910 

DATA 

AN 

1920 

DATA 

XQ 

1930 

DATA 

NB 

1940 

DATA 

VK 

1950 

DATA 

IM 

1960 

DATA 

YO 

1970 

DATA 

KF 

1980 

DATA 

NA 

1990 

DATA 
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B018692885B0A5B1690085B1CA 
10E7A55818692C85B0A5596903 
85B1A20FA037A90091B088CA10 
FAA94185B2A98D85B3A5B0186D 
408D85B0A5B1690085B1A201A0 
02B1B291B08810F9A5B0186928 
85B0A5B1690085B1A5B2186903 
85B2A5B3690085B3CA10DAAD0F 
D22908F005AO8402D031A0728D 
C910302ACE738DA90F8D728DAD 
408O1869018D718DA90D8D428D 
A55818697C85B0A559690385B1 
AC738DA98091B0A55818695C85 
B0A559690085B1A5B0186D718D 
85B0A5B1690085B1AC728DA5B0 
18692885B0A5B1690085B18810 
F0AD728DA000AD4C8DAE7 28DB0 
103002A90091B0E010B018A900 
A02891B0AD728DC910B00BCE72 
8D100BAO4C8O8D4 28DA9108D7 2 
8DA208BO568D3071A558186984 
85B0A559690085B1BD568D1865 
B085B0A90065B185B1A5B0187D 
688D85B0A5B1690085B1A002B1 
B0CD4C8DD037A9FF9D56 8DA910 
8D7280EE768DAD768DC9 9A3017 
A9908D768OEE758DAD758DC99A 
3008A9908D75 8DEE74 8DCE7B8D 
AD4C8D8D4 2 8D4CE08AB94D8D91 
B08810BA208C8BCA1084CE9D8D 
30034C1A8BA9058D9 D8DAD408D 
CD7C8DB00DCB7C8D1017A9008D 
7C8D4C1A8BBB7C8DAO7C8DC90C 
3005A90B8D7C8DA55818697485 
B0A559690185B1A5B0186D7C8D 
85B0A5B1690085B1A004B1B0CD 
4C8DD00BA9108D7 2 8DAD4C8D80 
428DB97O8D91B08810E6A55818 
693885B0A559690085B1A002B9 
748D91B08810F8AO728OC91030 
02A9008D01D2A9328D02D2AC5 5 
8DB99E8D09E08D03D2290F0940 
8D02D260BD568DC9FFF014BO5F 
8D1010OE568D100AA9009D568D 
A9009O5 F8D60FE5 680BD5 6 8DC9 
0E30F5A90D9D568DA9FF9D5F8D 
60A55818693885B0A559690085 
B1A002B1B099A7 8D8810F8AD7 4 
8DCD778D3025AD758DCD788D30 
1DAD768DCD798D3015A002B1B0 
99B08D8810F8A002B9748D9977 
808810F7 205E8C4C0188A55 818 
693385B0A559690085B1A9A285 
B2A98D85B3A92E85B4A98F85B5 
A215A011B1B091B4B1B2 91B088 
10F5A5B018692885B0A5B16900 
85B1A5B218691285B2A5B36900 
85B3A5B4186912 85B4A5B5 6900 
85B5CA10C960A55818693385B0 
A559690085B1A92E85B2A98F85 
B3A215A011B1B291B08810F9A5 
B018692885B0A5B1690085B1A5 
B218691285B2A5B3690085B3CA 
10DA60A008B9828D99568DB98B 
8O99688DB9948D995F8D8810EB 
A9088D7B8DA9108D73 8D8D72 8D 
A55818697C85B0A559690385B1 
A00FAO4C8D098091B08810FBAD 
408D8D718DEE718D60A9FF8DFC 
02ADFC02C9FFD016AD0FD22908 
F00FAD1FD0C906F008AD8402F0 


AB 2000 DATA 034CE88CC91CD00568684C2D8D 
IU 2010 DATA A9018D8402A9FF8DFC02A51418 
GB 2020 DATA 690AC514D0FC60A007A9009900 
HD 2030 DATA D28810FA60A9108DD902A9038D 
RT 2040 DATA DA0220228D205E8C6C0A000600 
JR 2050 DATA 3E00489D4A80CED2CD803E7E80 
BL 2060 DATA 7F80EFD4EF800000050A03080D 
QP 2070 DATA 01060B010101FEFEFE01010100 
JU 2080 DATA 0000505050A0A0A00710109090 
CI 2090 DATA 9090909000000648D2CED24A00 
SI 2100 DATA 050A03080D01060B0000005050 
RD 2110 DATA 50A0A0A0010101FEFEFE010101 
MT 2120 DATA 00020406045580B4F99A909090 
QV 2130 DATA 8080B4EFF09A90909055FC0000 
ZC 2140 DATA 00000000000000000000000000 
UM 2150 DATA 00FC80000000C94FC9595900C9 
LL 2160 DATA 4CD55900000080FC0000005959 
TK 2170 DATA C9595900C9004F59000000FC80 
IE 2180 DATA 000000D5004C4CD54CD54C4B00 
EE 2190 DATA 00000080FC0000000000495549 
LT 2200 DATA 49CB000000000000FC8000D5D5 
LM 2210 DA^A D500D9D9D949C90000D5D5D500 
XA 2220 DATA 80FC00000000004B4B4B4BD500 
XR 2230 DATA 0000000000FC800000C94C594F 
BP 2240 DATA C959CC4FC94CC94C000080FC00 
m 2250 DATA 00D559C900595959595900C900 
KI 2260 DATA 0000FC800000D54CD54CD54C4C 
XP 2270 DATA 4CD54CD54C000080FC484A484A 
WY 2280 DATA 484A484A484A484A484A484AFC 
RT 2290 DATA 80CAC8CAC8CAC8CAC8CAC8CAC8 
DO 2300 DATA CAC8CAC880FC00000000000000 
CX 2310 DATA 000000000000000000FC800000 
BS 2320 DATA 00000000246C61000000000000 
EC 2330 DATA 0080FC0234616A656D6E696300 
BC 2340 DATA 217461726902FC80000000006E 
JR 2350 DATA 61706973616C000000000080FC 
LJ 2360 DATA 002461726975737A003A6F6C6E 
VH 2370 DATA 610E00FC800000000000000000 
CM 2380 DATA 000000000000000080FC000000 
SG 2390 DATA 086309002465002A6574000000 
CI 2400 DATA FC8000000012180E10180E1119 
KT 2410 DATA 191100000080D5808080808080 
QB 2420 DATA 80808080808080808080D5E002 
RE 2430 DATA E1020188 






Rok szkolny w toku. niejednemu z nas zdarzy się 
zrobić parę kleksów w zeszycie czy książce. A kleksy 
bywają różne. W tym programie mamy trzy rodzaje kle¬ 
ksów. z którymi walczymy, aż do skutku. Program liczy 
sekundy naszych zmagań. Możemy także ustawić sobie 
liczbę kleksów i etapów w grze. Wystarczy w wierszu 
10 zmienić wartości KLP 1 IPE. Podczas gry. gdy uz¬ 
nasz. że uporałeś się już z całym polem, wystarczy na¬ 
cisnąć spację, a komputer powie, czy przeszedłeś do 
następnego etapu. 

Program napisany jest w Turbo Basic XL 


El 

1 

REM 





SZ 

2 

REM 

* 




CC 

3 

REM 

* 

GUMKA 

1991 r. 


TB 

4 

REM 

* 




SC 

5 

REM 

* 

autor 

Aleksander 


EL 

6 

REM 

* 


usik 


TE 

7 

REM 

* 




EP 

8 

REM 





QU 

9 

— 






KV 10 GRAPHICS 17:DIM A$(6):KLP«50:IPE-3 
OZ 20 KL-KLP:SC-DPEEK(88)+84:SCPM-?B000:E 
X1-0:EX2«0:ET«0:EXEC SZATA 


DB 30 FOR I-SCPM TO ?BD00:POKE I,2:NEXT I 
:F0R 11-0 TO 37:FOR 1-0 TO 52:POKE $B1 
C5+I+II*64,14:NEXT I:NEXT II 
RM 40 EXEC SZATA:GM-0:EXEC KLEKS:DX-0:DY- 
0:EXEC TRANS 

QT 50 POSITION 0,22:? #6;"TWÓJ CZAS-":P0S 
ITION 0,23:? #6;"ILOSC GUM-":TIME$- "0 
00000 " 

ZB 60 — 

JE 70 DO 

EB 80 POKE 710,RAND(256) 

WQ 90 POSITION 10,22:? #6;TIME$:POSITION 

11,23:? #6;GM;"-":ST-STICK{0):IF PEE 

K(764)-33 THEN EXEC SPRAWDŹ 
BR 100 DX—DX+(ST— 7 AND DX<50)-(ST-11 AND 
DX>0):DY—DY-(ST-14 AND DY>0)+(ST-13 AN 
D DY<35):EXEC TRANS 
QW 110 LOOP 


JG 120 — 

YG 130 PROC TRANS 

DH 140 POKE SC+166,0:IF STRIG(0)-0 THEN G 
M—GM+1:EXEC GUMKA 

GW 150 FOR 1-0 TO 15:MOVE SCPM+DX+DY*64+I 
*64,SC+I*20,12:NEXT I 
W 160 ENDPROC 

JQ 170 — 

SZ 180 PROC KLEKS 

ZW 190 FOR K-l TO KL:DX RAND(51):DY-RAND( 

36):EX£C GUMKA:EX£C TRANS:POSITION 0,2 
3:? #6;"NUMER KL-";"-";K;:NEXT K 
VX 200 ENDPROC 

JF 210 — 

OV 220 PROC GUMKA 

QA 230 SOUND 0,100,12,10:CENT“SCPM+DX+DY* 
64+453 

FC 240 FOR 1-0 TO 2:FOR 11-0 TO 2:POKE CE 
NT+II+I*64,PEEK(CENT+II+I*64) EXOR 33: 
POKE CENT+65,PEEK(CENT+65) EXOR EX1 
IS 250 IF EX2«33 THEN POKE CENT,PEEK(CENT 
) EXOR EX2:POKE CENT+130,PEEK(CENT+130 
) fi JOR. EX2 

NU 260 NEXT II:NEXT I:SOUND 0,0,0,0 
VY 270 ENDPROC 
JT 280 — 

RQ 290 PROC SPRAWDŹ 

IZ 300 POKE 764,255:POSITION 5,21:? #6;"S 
PRAWDZAMI":A? TIME? 

NB 310 FOR 11-0 TO 37:FOR 1-0 TO 51 
WG 320 SOUND 0,I,10,10:POKE 708,1*5 
XG 330 IF PEEK($B1C5+I+II*64)<>14 THEN PO 
P :POP :SOUND 0,0,0,0:POKE 708,40:GOTO 
400 

RD 340 NEXT I:NEXT II:SOUND 0,0,0,0:POKE 
708,40 

GA 350 POSITION 5,21:? #6;"GRATULACJEl!": 
KL—KL+KLP:FOR 1-0 TO 255:POKE 710,I:PA 
USE 1:NEXT I:POP :CLS *6 
SV 360 IF KL>KLP*IPE AND EX2-33 THEN CLS 
♦6:POSITION 5,7:? #6;"K O N I E C":PAU 
SE 500:CLS ł6:GOTO 20 
FA 370 IF KL>KLP*IPE AND EXl-33 THEN EX2» 
33:KL-KLP:ET»2*IPE:GOTO 40 
PF 380 IF KL>KLP*IPE THEN EX1—33:KL»KLP:E 
T»IPE:GOTO 40 
RA 390 GOTO 40 

TZ 400 TIME?- A?:POSITION 5,21:? #6;"GRAC 
DALEJ" 

VO 410 ENDPROC 

JJ 420 — 

UR 430 PROC SZATA 

KV 440 POSITION 0,0:? #6;" *GUMKA* BY O 

LOUS":POSITION 0,1:? #6;" ILOSC KLEKSO 
W-";KL;"-" 

PV 450 POSITION 5,2:? #6;"space cont":POS 
ITION 5,21:? #6;"POWODZENIA" 

MX 460 POSITION 0,22:? #6;"PROSZĘ CZEKAC 
1!!":POSITION 6,7:? #6;"E T A P":P0S 
ITION 9,9:? #6;KL/KLP+ET 
DU 470 FOR 1-0 TO 256*3:SOUND 0,I,12,15:N 
EXT I:SOUND 0,0,0,0 
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■możliwości 










Vi , 


£’ 


dpryj^ 

iia Jest pe#na wtedża ńdrfema. Wokttlj^ plł|^ 
iparncgo w formacie DOS-u 2.5 oraz sposobu jego 
? wczytywania. Oto garść niezbędnych lnformacJL 

Plik binarny składa się z jednego lub kilku segmen¬ 
tów. Każdy segment składa się z czterobajtowego na¬ 
główka 1 następującego po nim bloku danych. Nagłó¬ 
wek zbudowany Jest kolejno: z młodszego i starszego 
bajtu adresu początku oraz młodszego l starszego baj 
tu adresu końca bloku danych w pamięci Aby uzyskać 
długość bloku danych, należy od adresu końca odjąć 
adres początku 1 dodać jeden 

Każdy plik binarny rozpoczyna się dwubajtowym 
Identyfikatorem 8FFFF Przy próbie wczytania pliku 
bez w/w identyfikatora DOS 2 5 wyświetla komunikat 
"BAD LOAD FILE" (zły plik binarny) 

Po identyfikatorze następuje segment danych. W naj¬ 
prostszym przypadku jest to cały plik . Gdy nie osiąg¬ 
nięto końca pliku, to znaczy, że plik Jest wielosegmen¬ 
towy DOS sprawdza, czy zapisano coś do dwubajtowe¬ 
go rejestru INITAD (hex 2E2). Gdy sprawdzian wypad 
nie pozytywnie, to DOS uruchamia program od adresu 


wypisanego do INITAD W przeciw 
X ‘ przypadku lub po natrafieniu 
'&r uruchomionym programie na roz 

• -Jęaz RTS następuje dalsze wczyty 

'' ■- 

y. i- Vv 

y r fVł tym miejscu zdarzają się dwie 
występuje kolejny seg 
Tpent (jest to sytuacja najczęściej spo¬ 
tykana) lub występuje zbędny Identy 
fika tor a po nim kolejny segment Ta 
-kle pliki uzyskujemy np z KYAN PA 
SCALA lub po połączeniu plików bi 
jTft&mych opcją COPY APPEND Gdy 
‘dalej nie osiągnięto końca pliku, to 
•sytuacja się powtarza tak jak po 
^Wczytaniu pierwszego segmentu 

"h - . feo osiągnięciu końca pliku DOS 
i Sprawdza czy zapisano coś do INITAD 
i postępuje w sposób wyżej opisany 
:.'Gdy brak wpisu do INITAD lub nastą 
' pB powrót rozkazem RTS to spraw 
'-łfcany Jest dwubajtowy rejestr RUN AD 
*Jhex 2E0) I DC® postępuje analogicz 
Jak z rejestrem INITAD Jest jed 
Zasadnicza różnica w przypadku 
do INITAD skok do programu 
ly Jest natychmiast po zała 
aktualnego segmentu czyli 
niwairłnif uruchamiać każdy 
wczytaniem następnych Nato 
mias t w przypadku kolejnych wpisów RUNAD znaczący 
Jest tylko ostatni, a skok wykonywany jest po załado¬ 
waniu całego pliku a nie tylko segmentu Po natrafieniu 
na rozkaz RTS program powraca do DOS. Przy braku 
wpisów do INITAD 1 RUNAD sposób postępowania jest 
zależny od DOS-u: np. DOS 2.5 powraca do DUP SYS. 
a DOS XL uruchamia program od początku pierwsze¬ 
go segmentu. Osoby bardziej zainteresowane tematem 
odsyłam do literatury 

Opcja nr 1 Dlrectory chyba nie wymaga omówienia 
W kolejnych opcjach na pytanie o plik wejściowy nale 
ży podać pełną specyfikację pliku binarnego na dysku 
np. D1.NAZWA.COM 

Opcja nr 2 Analiza dokonuje analizy pliku wejścio¬ 
wego wpisując do pliku wyjściowego kolejno: adres 
startu, adres końca 1 długość kolejnych segmentów po¬ 
dając równocześnie ewentualne adresy Inicjacji lub 
uruchomienia pliku. Pozwala ona na orientację w roz¬ 
mieszczeniu programu w pamięci oraz na znalezienie 
miejsca od którego należy rozpocząć "rozgryzanie* pro 
graniu. Jest wręcz niezbędna gdy chcemy znaleźć wol 
ne miejsce w pamięci np na monitor Gdy wyniki chce 
my uzyskać na ekranie to Jako plik wyjściowy podaje 
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UQ 
ZB 
CO 
IM 
ZA 
NL 
AO 
GO 
MA 
OQ 
SZ 
UT 
LX 
EY 
RV 
U K 
JQ 
UA 
HU 
UH 
JF 
CT 
PP 
RH 
DB 
TB 
W 
JT 
OY 
CM 
TA 
CI 
MF 
UT 
JO 
00 
VH 
MB 
JM 
ZY 

eu 

S'T 

fu 

uu 

jp 

AK 

SP 

MC 

JX 

EO 

UM 

IB 

m 

m 

YM 

uz 

JU 

ND 

ae 

FO 

ID 

RK 

JT 

UM 

JR 

NK 

NR 

JT 

MG 

JM 

JK 

GS 

VQ 

HT 

ZU 

HR 

AJ 

PO 

DK 

NG 

UJ 

CO 

PO 

FT 

QG 

RP 

1Y 

SJ 

JC 

RQ 

MH 

KC 


IB REM (C) 1992 Tajemnice ATARI 
28 REM Autor; A.M, 

38 MAX=$5t»®STRAP ttERROR 
46 PIH B*(HAK), FIS(151*F2S(15) 

56 — 

66 POKE 195,136 

78 B$ (MAK)="0":B=ADR CBS]:P=ADR("3 fi 
68 T "KICI TA *92>0pty W .Ił 1 ' 

90 t ■■ m Katalog dysku*" 

18® ? "TB Analiza*" 
lie ? "W OptyMa lizać ja*" 

126 ? "H3 Koniec*" 

136 ? "Co wybierasz 9 "j 

148 H=4:EXEC HYBOR :f 

158 ON M EXEC DIR,ANALIZ,OPTY,FIN 

168 RU.~ 

176 ~ 

186 tt ERROR: CLOSE 
196 9 "ttERROR tt “;ERR:GET X 
260 RUN 
218 — 

226 PROC HYBOR 
236 REPEAT 
248 GET X:X=X-48 
256 UNT1L X>8 AND X<=H 
268 H=X 
278 ENDPROC 
28 — 

296 PROC DIR 

368 ? "KtNuMer stacji fi-8J 9 

316 H=B:EXEC HYBOR 

328 FlS=»Dl ?#.«••; FI* (2 21 =STR« CH) 

336 ? FIS:DIR FIS:GET X 
346 ENDPROC 
358 — 

368 PROC GET2 

378 BGET ttl,P,2:X=0PEEKCP) 

386 ENDPROC 
396 — 

466 PROC MAGLOMEK 

418 REPEAT :EXEC GET2:UNTIL KOSFFFF 
42C 5T=XsEXEC GET2:KN=X:LN=KN~ST*1 
438 IF LttCl THEN POKE 19S,21:G0tt ERROR 
446 ENDPROC 
450 — 

466 PROC PUT2 

478 DPOKE P,X:BPUT tt2,P,2 

488 ENDPROC 

498 — 

566 PROC OPER 

518 iNPtiT “*Plik wejściowy 9 ",FlS 
526 ItłPUT "Plik wyjściowy? ",F2S 
536 OPEN ttl,4,8,FIS:OPEN *12,8,6 F2S 
S48 BGET ttl,P 2 

556 IF DPEEKIPJ OSFFFF THEN POKE 195,2 
l:GO» ERROR 
561 ENDPROC 
576 

588 PROC OBŁOK 
596 REPEAT 
666 LN~LN~HAK 

610 BGET ttl.», MAK: BPUT 02,6. HAK 

626 UMTIL LN<=MAX 

636 EXEC EBLOK 

646 ENDPROC 

656 — 

660 PROC EBLOK 

676 IF LN THEN BGET łtl, B, LN: BPUT tt2,B, 
LN 

660 OST=t;OKN=e:OLN=B 
696 ENDPROC 
776 — 

786 PROC ANALIZ 

796 * "t tANALIZA:":EXEC OPEN 

886 DO 

816 EXEC HAGLOHEK 

820 IF ST=S82E8 OR ST=S82E2 AND LN=2 
838 EXEC GET2 

046 

656 
866 
876 

860 ? "Start=$'*j HEX$ I5T1;" End=$";HEX$ 

(KN1;" byt#s=";LN 

896 IF LN>HAX 

968 REPEAT 

918 LH=LN-HAX 

928 GET ttl,B,MAX 

936 UNTIL LN<=MAX 

946 ENDIF 

958 BG »1,B.LN 

968 TC 

978 LOOP 

9: i ENDPROC 

99i3 -- 


IF ST=S82 E8:? 

ELS E :? ■■niW ": : ENOIF 
? •fEHSGBPs®; HEKS cx> 
ELSE 


ZH 

leee 

PROC OPTY 

TF 

1818 

9 "iFOPTYMALIZACJA t":EXEC OPEN 

XL 

1626 

X=SFF F EKEC PUT2 STRAP ItOPTYERR 

KH 

1636 

O5T=6:OKN=e:OLH=:0 

KC 

1646 

DO 

PE 

1658 

EKEC NAGLOMEK 

QR 

1066 

IF ST-OKN+1 

CH 

1676 

Y=LN+OLN 

YJ 

ieae 

IF Y>MAX 

IR 

1698 

X=OST:EXEC PUT2 

YF 

1168 

X=KN:EXEC PUT2 

MH 

1110 

BPUT tt2,B,0LN 

IM 

1128 

IF LN>HAX 

SM 

1136 

EKEC DBLOK 

HA 

1148 

ELSE 

TD 

1156 

EKEC EBLOK 

PM 

1166 

EiDIF 

HJ 

1176 

ELSE 

CI 

1186 

BGET «U,B*OLN,LN 

DC 

1198 

OKN=KN:DLN=V 

EH 

1266 

ENOIF 

GT 

1216 

ELSE 

CE 

1220 

IF OLN 

ID 

1230 

X=05T:EXEC PUT2 

DE 

£246 

X=OKN:EKEC PUT2 

MU 

1250 

BPUs «2 B,OLN 

FO 

1260 

ENDIF 

JD 

1276 

IF LN>MAX 

DT 

128 

X=ST:EHEC PUT2 

ZI 

1296 

X=KN:EXEC PUT2 

SH 

1366 

EKEC DBLOK 

GU 

1319 

ELSE 

CF 

1326 

BGET ttl,B,LN 

SD 

1336 

05T-ST:OKN=KN*OLN=LN 

FK 

1348 

ENDIF 

FN 

1350 

ENDIF 

m 

1368 

LOOP 

UJ 

1376 

tt 6PTYERR 

MT 

1386 

IF ERR-136 

IX 

1398 

K-OST:EKEC PUT2 

CH 

1486 

HOKICEKEC PUT2 

MM 

1418 

BPUT IT2 0 ,OLN 

BE 

1426 

? "♦►►Gotowe!" 

FJ 

1436 

ENDIF 

HR 

1446 

GOtt ERROR 

YZ 

1456 

ENDPROC 

ME 

1468 

— — 

UL 

1476 

PROC FIN 

FT 

1486 

END 

Zi. 

1496 

ENDPROC 

uo 

1586 

— 


my S: lub E- a dla drukarki P 

Opcja nr 3 - Optymalizacja kopiuje plik wejściowy, usu¬ 
wając jednocześnie zbędne Identyfikatory oraz "sklejając" 
sąsiadujące segmenty w Jeden większy. Co daje taka op¬ 
cja? W większości przypadków nic proszę jednak ją wy 
próbować na plikach generowanych przez Deep Blue 
C oraz na nim samym. W tym przypadku czas wczytywa¬ 
nia z ramdysku skraca się kilkunastokrotnie a z normal¬ 
nej stacji o 20-30%. Sam plik skraca się o kilka sektorów. 

Uwagi, przy korzystaniu z Jednej stacji dysków pliki 
wejściowy 1 wyjściowy muszą być na tym samym dys¬ 
ku. Nie kasujmy starych plików przed wszechstronnym 
przetestowaniem pliku wyjściowego, który czasami mo¬ 
że nie działać Niekiedy pomaga zmiana "loadera" np 
z BOOTSTRAP na MICRODOS ltp. W celu nieznaczne 
go poprawienia efektywności można w ramach wolnej 
pamięci zwiększyć wartość zmiennej MAX, co px>wtęk 
sza bufor programu Program kończy pracę zgłosze¬ 
niem błędu nr 136 1 nie należy się nim przejmować, 
natomiast błąd nr 21 oznacza, że wczytywany plik ma 
strukturę niezgodną z omówioną na początku opisu 


A IV. 

Literatura: 

1 "DOS 2.5:1060 DiskDrńeOwnećsManuaT-ATARI Corp. 
2. W.Ztentara "Mapa pamięci ATARI XL/XE - dyskowe syste¬ 
my operacyjne" - SOETO 
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Autorzy: Rafał Kaleta 1 Daniel Wilczak. Minl-gra 

oparta na wlelekroć sprawdzonym pomyśle: żaba wę¬ 
drująca przez ruchliwą Jezdnię. W miarę przebywania 
kolejnych etapów zwiększa się stopień trudności, pot 
rosi czoło a palce mdleją., zresztą spróbujcie sami 


UH 1. GRAPHICS B:OIM A(221,B(222 iPOKE 716,0: 
POKE 712#14IPOKE 7B9,1S:P0KE 7S2,9:E=S:K 
=B:p=b:R=B:C“B:M=19:G=12:Z=2SS 
PH 2 7 •■H ,, |E=E+HB=E+2«F0B 0-1 TO ElA(01-XH 
T (RND (BI *G14-13 IB (BI -<ć«(RHD CBS <6. SI 1S NEK 
T «:IF E>15 THEH E=B:H=M-1:G=G“2:G0T0 2 
VB I POSITIOM H,B:7 •• ••«C=PEEKC7641 <Z:B=B-C 
IP=P*C: LOCATE H B, K • POSITIOM H,B :7 O 

M 6=6 GO-o 2:0=B:IF C THEM POKE 764,Z 
IT 4 0=04-1 iM=A(Ol :POSITIOH H.Olł " “«lł=H*-»( 
O] :LOCATE H,O#R:A(01=M|POSITIOH H#Q«? 

* IF H>-13+G OR H<1 THEH B(OS=-B(OI 
PH S OH R=32 AHD 0<E GOTO -UPOSITIOH 2,2@l7 
••ETAP- M |E*(1> -HI*19, #“PKT—■* JP 8OH K=32 * 
HD R=32 GOTO 3:f “UPRZECRAHA »■•PKT*-"#P 



Sterowanie żabą polega na naciskaniu dowolnego kla¬ 
wisza Powodzenia 



Autor- Robert Dryga* Ten program pozwala na ta¬ 
kie zaprogramowanie Jednego z klawiszy funkcyjnych 
(OPTION, SELECT lub START) by Jego naciśnięcie po¬ 
wodowało skok do określonego wiersza. Po wykonaniu 
programu klawisz aktywizuje się rozkazem 


X=USR( 1 536.wiersz klawisz). 

• wiersz nr wiersza, do którego ma być wykonany skok 

• klawisz kod klawisza (zgodny z wartościami w komór 
ce 53279) 



WL 1 FOR 1-1536 TO 1602:READ A:POKE I,A:N 
EXT I 

HD 2 DATA 104,104,133,207,104,133,206,104 
,133,205,104,133,204,169,0,141,27,2,16 
9,1,141,26,2,169,39,141,40,2 
VN 3 DATA 169,6,141,41,2,169,64,141,14,21 
2,96,169,10,141,26,2,173,31,208,197,20 
4,208,243,165,206,133,160 
WP 4 DATA 165,207,133,161,169,7,141,31,20 
8,76,224,182 

v > Wykresy 

Autor: Adam Myjak Stary jakśwlat problem ryso 
wanta wykresów dowolnych funkcji Przykłady funkcji 


Y=SIN(X)*X 
Y—ABS(SQR(X)) 


BU 1 ATM ASCBBIi? "HHZOR FUHKCJIi*» tIHPUT 
ttiei AtIPOSITIOH “8 tt-H*0.1 1 ") A 

*I M lC.4 G.2"lPOSITIOH l.OlPOKE 842,13 
lEHO 

ZP 2 GRAPHICS 8iPOKE ?12,4:POKE 710,10:P0 
KE 709,8tC0L«m IsPLOT 161,•«DRAUTO 161 
,198l LOT O.BBSORAMTO 319,88fC0L0R 8 
RB 3 POKE B42.12IP0KE 786,*:TRAP 4:F0R K= 
BI TO 289 STEP IB:PLO K,80:PL0T 161,K 
-BltHENT KlH=—16*7 At 
HB 4 IF V<B AHO V>-8 ANO <18 THEH K2=X*1 
641611 Y2=-VH16-»861COLOR U PLOT K2,Y2 
AV 8 H=K«0.1lV=SXH(KJ+SXH(2*XJ :GOTO 4 


Niestety, program nie dostosowuje sam skali wykre 
su do uzyskiwanych wartości, więc nie każda funkcja 
da się tu obejrzeć. 
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Autor. Michał Sienkiewicz. Jest to prosta gra zręcz¬ 
nościowa. Sterowanie przy pomocy Joysticka 


co 


UJ 

RU 


NZ 


CI 


1 GRAPHICS StPOKE 752,1:P0KE 716,6;P0S 

ITIOM 18,26:? ■■ ***i(k+***^ *’:5=38:F 

OB 1=1 TO 5:? "I";:N£X1 I 

2 POSITION X,6:? •• • *J :K=H+l:FOR 1=1 T 
0 36 i NEXT ISIF X=2f> THEN X=18? 

3 OM i- GOTO 3.IF STRIGC6)=( THEN FOR 
V=lł TO 6 STEP -1:POSITION 19,V» "I" 

SNEKT v:5=5 ISIF X=19 THEN C=C«18X=1 

4 FOR Y=19 TO 8 STEP -lsPOSITION 1S,V: 
? ■■ *': NEKT v:POSITION S,23 ? *' "J8GOTO 

2 

5 ? “N łCELNE STRZAŁY J"jC !S=6. C=6: ? •** 
+OM0CI5MJ BOHOL1Y KLAWISZ 1 *:O.: EM 1*1,4 
,6,"K: ,I :GET ttl,Z:CLOSE Stl:X=l:RUN 



zy poza pokazaniem, ze nawet bardzo prostymi śród 
kami można osiągnąć Interesujące efekty. 


FX 1 ? CHR$(125):POKE 752,1:A=1024 
WL 2 TRAP 3:READ B:POKE A,B:A«A+1:GOTO 2 
ML 3 X«RND(0)*38:Y RND(0)*23:POKE 756,4 
XB 4 FOR 1-0 TO 4:POSITION X,Y:7 CHR$(32+ 
I)j:FOR T=0 TO 10:SOUND 0,60-10*I-T,10 
,4-I:NEXT T;NEXT 1:7 CHR$(125):GOTO 3 
CR 5 DATA 0,0,0,0,0,0,0,0,0,0,0,24,24,0,0 
,0,0,0,24,36,36,24,0,0,0,40,2,64,2,64, 
20,0,36,0,129,0,0,129,0,36 



Bardzo często zdarza się. że posiadając tylko magne¬ 
tofon, Jako pamięć masową, korzystamy z programów 
dyskowych Część z nich posiada możliwość podania 
specyfikacji urządzenia zewnętrznego, a część tylko na¬ 
zwy programu Przy próbie odczytu lub zapisu pliku 
słyszymy tylko jednostajne pyrczenle. 

Do wyboru mamy kilka rozwiązań tego problemu 
Pierwszy z nich polega na odszukaniu w programie 
specyfikacji stacji dysków ("D:") 1 zamienieniu jej na 
urządzenie "C:". Pozwoli to odczytywać 1 zapisywać pil 
kl na kasetę. Poniżej prezentuję kilka poprawek do po¬ 
pularnych programów, które nie pozwalają w stan¬ 
dardowej wersji korzystać z magnetofonu 

KB 1000 R£M Poprawka do RYTHMIZER* a 
KR 1010 DATA 1682,68,67 

QL 1000 REM Poprawka do SOUND MACHINĘ 
WB 1010 DATA 12423,68,67 
WC 1020 DATA 12603,68,67 


RH 1000 REM Poprawka do DIGI-DRUM* a 
CM 1010 DATA 16197,68,67 

Po dokładnym przepisaniu Unii DATA należy dograć 
do nich program PATCHER* (TA 7/91) następnie ca 
łość uruchomić Uwaga' Programy, które zostały zgra¬ 
ne z dysku za pomocą programów JBW TAPE MAKER 
lub NCOPY nie zostaną poprawione. Wynika to z tego. 
że obydwa te programy dodają nazwę do programu, 
przez co w miejscu, gdzie powinny znajdować się dane 
do poprawienia będzie się mieścił inny fragment pro 
gramu. 

Drugą metodą Jest zainstalowanie w HATABS urzą¬ 
dzenia "D ". którego wektor obsługi wskazywał będzie 
procedury obsługi magnetofonu. To zadanie wykonuje 
przedstawiony poniżej program. Należy go wczytać 
opcją ** COS-a Następnie uruchomić program, który 
nie chciał współpracować z magnetofonem 



IJ 1000 REM *- 

TM 1002 REM : Instalator handlera "D:" 
QX 1004 REM : autor: Marek Pasek 

YY 1006 REM : (c) 1992 Tajemnice ATARI 

JP 1008 REM *- 1 

RO 1010 DATA FFFF00064106A2FFE8BD1A03C9 
QF 1020 DATA 43D0F8BD1B038D2806BD1C038D 
SY 1030 DATA 2906A244AC2806AD290620BCEE 
QU T040 DATA A22AA0064C42C6000048616E64 
EM 1050 DATA 6C65722022443A2220696E7374 
RC 1060 DATA 616C6C65642E9BE002E1020006 


Marek Pasek 
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CYTS/A 





która zwraa zawsze wartość rzeczywistą 
z zakresu od 0 do 1 (bez Liczby 1) Otrzyma • 
ne dzięki temu dwie przypadkowe Liczby na • 
leży przekształcić we współrzędne środka 
tarczy, czyli na liczby z zakresu (X) 9-310 1 (Y) 9-150 
Dlaczego takie? Określają one bowiem odpowiednio 
najmniejsze 1 największe wartości współrzędnych 
środka, przy których cała tarcza o wymiara h 18 na 
18 mieści się na ekranie 

3000 REM rysowanie tarczy 
3010 OX RND(0)*301+9 
3020 OY RND(0)*141+9 
3030 RYSKWAD 3500 
3040 BOK-6:GOSUB RYSKWAD 
3050 BOK«12:GOSUB RYSKWAD 
3060 BOK«18:GOSUB RYSKWAD 
3070 RETURN 

Podprogram ten generuje współrzędne środka tarczy 
(OX 1 OY) 1 wywołuje trzy razy Inny podprogram lk, któ¬ 
rego zadaniem Jest narysować kwadrat o boku BOK 
1 środku OX,OY Zastosowałem tu opisaną wcześniej 
sztuczkę z wywołaniem podprogramu, dzięki czemu 
tekst programu Jest przynajmniej częściowo samoko 
mentujący 1 czytelniejszy. Część rysująca kwadrat wy¬ 
maga komentarza. Użyta została w niej komenda 

DRAWTO wx,wy (DR.) 

gdzie wx i wy są współrzędnymi punktu określonymi 
jak przy komendzie PLOT. DRAWTO rysuje linię łączą 
cą ostatnio narysowany punkt z miejscem określonym 
przez wx 1 wy. Gdy nie użyto wcześniej PLOT czy 
DRAWTO, to linia zacznie się w lewym górnym rogu 
ekranu (0,0) 


stick (nr Joysticka) 

zwracająca przeróżne wartości w zależności od klerun 
ku w jakim został przechylony Joystick, oraz 

STRIG (nr Joysticka ) 

zwracająca O gdy został naciśnięty przycisk FIRE. 1 zaś 
gdy go nie ruszamy NrJoysticka może być liczbą od 
0 do 3. z tym. ze 2 1 3 we wszystkich współcześnie spoty 
kanych komputerach ATARI są traktowane Jak 011. 

Będziemy więc, w zależności od stanu joysticka, po¬ 
ruszać malutkimi kreseczkami uosabiającymi celow¬ 
nik. dopóki nie zostanie naciśnięty strzał 

4000 REM celowanie 
4010 CX«160:CY-80:NCX«CX:NCY-CY 
4020 COLOR 1:GOSUB 4500:REM celownik 
4030 ST=STICK(0) 

4040 IF ST=14 AND CY>2 THEN NCY-CY-2 
4050 IF ST=13 AND CY<157 THEN NCY-CY+2 
4060 IF ST=7 AND CX<317 THEN NCX»CX+2 
4070 IF ST-11 AND CX>2 THEN NCX«CX-2 
4080 COLOR 0:GOSUB 4500:REM celownik 
4090 CX NCX:CY-NCY 
4100 IF STRIG(O) THEN 4020 
4110 RETURN 

4500 PLOT CX,160:DRAWTO CX,155:PLOT 0, 

CY:DRAWTO 5,CY:RETURN 

W napisanym właśnie podprogramie mamy do czy 
nienta z Jednym z problemów animacji komputerowej 
Polega on z grubsza na przesuwaniu elementu na nowe 
miejsce, z wymazaniem starej pozycji Do zrealizowa¬ 
nia tego celu został użyty Jeszcze jeden podprogramlk 
rysujący celowntczek na pozycji CX,CY zadanym 
wcześniej kolorem 




3500 REM rysowanie kwadratu 

3510 COLOR 1:B2=BOK/2: PLOT 

3520 DRAWTO OX+B2,OY-B2tDftANTO 

Y+B2 : DRAWTO OX-B2 , OY+B2 rMASflPO OX-B2,0 

Y-B2 

3530 RETURN ' 

Pozostało nam Jeszcze do zaprogramowania celowa¬ 
nie. strzał 1 wypisywanie wyniku. To pierwsze będzie 
polegało na ręcznym nakierowaniu (za pomocą joysti¬ 
cka) na wizerunek tarczy punkcików poruszających się 
po brzegach ekranu Będziemy potrzebowali w jakiś 
sposób odczytać stań 'manipulatora’ Służą do tego ce¬ 
lu dwie fun 


Oprogramowanie strzału będzie dziecinnie proste. 

5006 REM strzał 

5010 COLOR 1:GOSUB 5030 

5020 COLOR >0 

5030 PL0f: 0,159:DRAWTO CX,CY:DRAWTO 31 

5 , 15*1 . 

5040 


Obliczenie I wypstóaie punktów również nie powinno 
sprawić kłopotów. Tarcza ma teoretyczną średnicę 25 
punktów (tyk miałaby, gdyby była okrągła). 1 tyle tez 
w zależności od celności maksymalnie można będzie 
otrzymać. Odległość środka tarczy liczona Jest 
z wzoru na długość Odcinka. 

6000 rem wynik 

6010 W*INT<SQR((OX*CX)“2+(OY-CY)'2)) 

6020 W»2S-W:IT W<0 THEN W 0 
6030 7 CHR$U25)*~TVoj wynik ";W 
6040 RETURN 

Nie pozostaje ml nic Innego Jak zyczyć wszystkim 
udanych eksperymentów 

w. 


Mirosław Llmlnowtcz 
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W każdym komputerze prędze), czy później spo¬ 
tykamy się z przerwaniami. Urządzenia firmy ATA 
RI oczywiście nie są pod tym względem wyjąlklcm 
W nich także występuje cała gama przerwań uży¬ 
wanych do różnych celów przez system operacyjny 
oraz programy użytkowe. Przerwania, ogólnie 
rzecz biorąc, dzieli się na maskowalne (tzw 1RQ, 
z ang Interrupt ReQuest). oraz niemaskowalne 
(NMI, z ang Non-Maskable Interrupt) Podstawową 
różnicą pomiędzy nimi jest to. Jak procesor może 
Je potraktować. Przerwania maskowalne mogą zo 
stać zignorowane przez Jednostkę centralną dzięki 
rozkazowi SE1, a ten stan obojętności Irwa dotąd, 
az w programie pojawi się rozkaz CLI. Jak łatwo 
się domyślić, przerwania niemaskowalne nie mogą 
zostać przez procesor nie zauważone, chociaż 
w większości systemów istnieje możliwość żabio 
kowania ich poprzez zapisanie odpowiednich reje¬ 
strów sprzętowych 

Przerwanie VBLANK należy do grupy przerwań 
nlemaskowalnych 1 Jest najważniejszym spośród 
wszystkich przerwań, występujących w ATARI Co 
oznacza nazwa yBLANK^ Otóż oznacza ona prze¬ 
rwanie wygaszania pionowego, czyli zgłaszane wte¬ 
dy. gdy strumień ehktronow "rysujący* obraz na 
monitorze dociera do prawego dolnego rogu ckra 
nu Zasada Jest prosta komputer około 50 razy na 
sekundę tworzy obraz rysując po kolei poziome 11 
nie na ekranie, od lewej do prawo) strony Po nary 
sowanlu pewnej lltzby takich linii (tzw rozdziel¬ 
czość pionowa komputera) cały proces zaczyna się 
od początku, ale wtedy układy sprzętowe tw tym 
wypadku ANTIC - koprotesor graliczny ATARI) 
zgłaszają ten fakt procesorowi, generując sygnał 
przerwania, którego nie może on nie zauwazyc. 
Gwoli ścisłości nale/y dcdac. ze przez chwilkę po 
zakończeniu rysowania całego obrazu ekran monl 
tora Jest wygaszony co usprawiedliwia nazwę 
przerwania VBLANK 

Dwa kolejne słowa pamięci używane są Jako we- 
Ktory wskazujące adresy procedur. wvwołvwanych 
przez przerwanie wygaszania pionowego Potrzeb 
ne sa az dwa adresy skoków ponieważ obsruga te 
go wydarzenia przebiega w dwóch etapach, z któ¬ 
rych pierwszy est wykonywany zawsze natemlas* 
drugi tylko wtedy, gdy system nic wykonuje akurat 
operacji krytycznych czasowo o czym informuje 
stan komórki CR1TIC (adres 66, $42) Ogranicze¬ 
nie takie wynika z faktu, że wykonywanie procedur 

-zerwań zajmuje trochę czasu, którego mogłoby 
zabraknąć np na 'dogadanie się" komputera 
z urządzeniami peryferyjnymi 


W pierwszym etapie systemowe) obsługi VBLANK 
zwiększane są wartości, zawarte w komórkach zegara 
systemowego (adres 18-20, $12-$ 14). obsługiwany Jest 
tzw "tryb przyciągania uwagi (patrz adres 77, $4d) 
oraz licznik programowy nr 1 

W drugim etapie obsługi przerwania wygaszania pio¬ 
nowego aktualizowane są liczniki o numerach od 2 do 
5 w komórce CH (adres 764 $02fc) umieszczany jest 
kod naciśniętego klawisza oraz. co ważne, do relestrów 
sprzętowych przepisywane są wartości z tzw reje- 
strów-cleni 

Tu drobna uwaga, ponieważ niektóre z reje¬ 
strów sprzętowych ATARI wymagają odświeża¬ 
nia, to wartości, które powinny być do nich zapi¬ 
sywane przechowuje się w pamięci RAM 1 stam 
tąd tez są one przenoszone do rejestrów sprzęto 
wych Wiedząc, ze takie przenoszenie zachodzi 
podczas każdego przerwania VBLANK łatwo się 
domyślić zc nie ma większego sensu modyfika¬ 
cja bezpośrednio rc)estrów przypisanych ukła¬ 
dom komputera - 1 tak system zmienia Jt w zależ¬ 
ności od cieni 

$0222, $0223 00546 00547 WBLKI 

Wektor pierwszej, tak zwanej natychmiastowej fazy 
obsługi przerwania VBLANK 

$0224, $0225 00548, 00549 WBLKD 

Wektor drugiej lak zwane) opóźnionej lazy obsługi 
przerwania VBLANK 

Oczywiście nic nie stoi na przeszkodzie temu 
aby zatnslalować własną procedurę obsługi prze 
rwania wygaszania pionowego, trzeba Jedynie pa 
mlętat o kilku, związanych z tym r egułach Prze¬ 
de wszystkim pamiętajmy, ze nie Jesteśmy sami, 
nie wolno nam postępować tak. Jak zaleca wię¬ 
kszość "lachowców", którzy twierdzą, ze obsługę 
opisywanego przerwania należy kończyć skokiem 
pod adres, odpowiednio $e45f (faza pierwszal 
lub $c462 (faza druga) Byłoby to niezłe rozwią¬ 
zanie. ponieważ, o czym dotąd nic wspomniałem, 
systemowa procedura rozpoznania źródła prze¬ 
rwania odkłada na stos rejestry procesora, a wy¬ 
żej wymienione procedurj. odtwarzają te rejestry 
w odpowiedniej kolejności, gdyby nie pewne ale. 
W pamięci komputera może znajdować się pro¬ 
gram rezydentny, który zainstalował własną pro¬ 
cedurę obsługi przerwania VBLANK 1 jej wykona 
nie należy umożliwić Na wszelki wypadek trzeba 
więc przy tworzeniu naszych procedur zapamlę 
tać adresy, wskazywane przez wektory WBLKI 
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i WBLKD 1 kończyć właśni: procedury sko 
kłem właśnie do nich Jcsl to o tyle bezplecz 
ne, ze nawet Jeśli żaden program nie zmodyfl 
kowal dotąd wektorów procedur obsługi prze¬ 
rwania. wykonamy skok pod adresy Se45f 
1 Se462. zainicjowane przez OS podczas włą 
czanla komputera. 

W jaki sposób ustawić własne adresy proce¬ 
dur 0 Pytanie, wbrew pozorom, nie Jest tak banal¬ 
ne, na Jakie wygląda Nie wystarczy po prostu 
wpisać w odpowiednie komórki pamięci adresów 
naszych procedur Trzeba liczyć się z tym że po- 
między wpisaniem Jednego 1 drugiego bajtu adre 
su może wystąpić przerwanie wygaszania piono¬ 
wego Oczywiście zostanie wywołana procedura 
obsługi której adres nie został Jeszcze prawidło 
wo ustawiony 1 system "pójdzie w maliny"... 

Rozwiązania są w tym wypadku dwa Po plcr 
wsze, można skorzystać z systemowej procedury 
ustawiania adresu przerwania VBLANK, o nazwie 
SETVBV (adres Se45c). klóra zatroszczy się o to. 
by nie zaszła opisana wyżej, makabryczna sytu¬ 
acja Oto, Jak to zrobić- 


wblkd equ $0224 

setvbv equ $e45c 

ustaw Ida wblkd 
sta stary 
Ida vvblkd+l 

sta stary+1 
Ida #7 
Idy cno ja 
ldx >moja 
jsr setvbv 

* tu dalsza część 

* 

odda] Ida #7 

Idy stary 
ldx stary+1 
jmp setvbv 


zapamiętaj adres 
chodzi o WBLKD 
młodszy bajt adresu 
starszy ba]t adresu 


programu 


moja equ » 

* 

* tu procedura obsługi VBLANK 

* zakończona rozkazem... 

jmp (stary) 


stary org *+2 
end 


Drugie rozwiązanie, to samodzielne ustawienie ad 
resu tak. aby przerwanie nie "złapało” nas w połowie 
roboty 


clock 

equ 

$14 


wblkd 

equ 

$0224 


ustaw 

Ida 

wblkd 



sta 

stary 



Ida 

wblkd+1 



sta 

stary+1 

zapamiętaj adres 


Ida 

clock 


/eka j 

emp 

clock 



beq 

czeka] 

czeka], aż się zmieri 


Ida 

cno j a 



sta wblkd 
Ida >moja 

sta wblkd+1 ustaw nowy adres 
* tu dalsza częśc programu 



odda] Ida clock 
czeko emp clock 
beq czeko 
Ida stary 
sta wblkd 
Ida stary+1 
sta wblkd+1 



moja equ * 

* 

• tu procedura obsługi VBLANK 

* zakończona rozkazem... 

jmp (stary) 

stary org *+2 
end 



Bye może ten sposób nie Jest tak elegancki. Jak 
odwoływanie się do procedur systemowych, ale 
równie skuteczny Dlaczego 0 Jak napisałem powy¬ 
żej. podczas obsługi przerwania VBLANK system 
między innymi zwrlększa irzybajtowy zegar syste¬ 
mowy. którego najmniej znaczący (tzn zwrlększany 
przez każde przerwanie uvgaszanla pionowego 
bajt Jest pod adresem 20 czyli $14 Wystarczy od 
czytac ten baji 1 porównywał przechowaną wartość 
zc świeżo odczytaną Dopóki są one równe, nie 
wolno nic zrobn Kiedy wsk zanic zegara się zmie¬ 
ni. oznacza to. ze własntc. skończyło się przerwa 
nie VBLA\K. a następni 1 zle dopiero za i hwilę 
Oczywiście mówiąc "chwil . mam na myśli czas. 
w którym procesor spokoji e zdązy podmienić we 
kior 1 nic należy się obaw ć żadnych nleprzewl 
dzianych konsekwencji 

W przerwaniu VBLA\k nożna rob ć wiele in¬ 
teresujących rzeczy, np obsługiwać animację, 
sprawdzać ruchy Joystli ha. czy lez po prostu 
mrugać kursorem Sposób Jego wykorzystania 
zalezy od Inwencji programisty. Ja zaś chciałbym 
wspomnieć o Jeszcze jednym zagacln enlu. zwia 
zanym z przerwaniem w’V£, ?zanla pionowego Je 
sil w programie, który plszi mv zmieniamy dyna¬ 
micznie wygląd ekranu, warto synchronizować 
procedury wyświetlania z przerwaniem VBLANK 
ponieważ zapobiegnie to efektowi mrugania wy 
świetlanego obrazu. 

I na koniec limity czasowe dla oba faz obsłu¬ 
gi VB1 ANK Etap pierwszy powinien trwać nie 
dłużej nlz 3800 cykli maszynowych. Irugi zas 
me dłużej nlz 20000 c-ykll masz>nowvch Dane 
te podaję za 1 Chadwick "Mapplng The Atart” 















Od dłuższego Juz czasu nosiłem 
się z zamiarem napisania czegoś na 
temat, który bardzo mnie lnU resu 
Je. Chodzi mianowicie o emulatory. 
Jeśli ktoś nie wie o co chodzi, spie¬ 
szę wyjaśnić! Emulatorami nazywa 
my programy lub urządzenia, które 
naśladują (z ang. emulate ozn uda¬ 
wać. naśladować) pracę innych 
programów lub urządzeń przy 
czym termin ten odnosi się najeżę 
śclej do "udawaczy" komputerów 
Wyobraźmy sobie, ze pracujemy na 
komputerze klasy PC 1 nagle nacho¬ 
dzi nas ochota na "pouzywanle" so¬ 
bie na starym dobrym Spectrum 
Nic musimy pędzić do znajomego, 
który tą zabawką dysponuje, wy¬ 
starczy sięgnąć do pudełka z dys¬ 
kietkami, aby odnaleźć tam pro¬ 
gram SP EXE Po załadowaniu go 
do pamięci PC-ta można zagrać 
w spektrumowskle hity 

Emulatorów powstało Już całe 
mnóstwo; Jedne komputery udają 
drugie, te z kolei trzecie 1 tak dalej 
Oczywiście jest jeden problem - za¬ 
zwyczaj to większe maszyny udają 
mniejsze, a nie na odwrót - ale to 
Jest chylja oczywiste. A Jak wygląda 
sytuacja naszego ATARI? Tu Jest 
słabiej - małe ATARI nie udaje ni¬ 
czego. Jest to zrozumiałe. Jeśli we¬ 
źmie się jxxl uwagę możliwości ulu 
blonej zabawki czytelników "TA". 
Dlaczego Jednak firma ATARI nie 
wypuściła. Jak dotąd, dawno obie¬ 
canego emulatora ATARI XL dla 
ST? U . azam to za niedopuszczalne 
zaniedbanie w stosunku do klienta, 
przeciec np. Cominodore Juz daw 
no załatwił ten problem, dając uzyt 
kownlkom swojej AMIGI niezły, 
programowy C-64. 

Wrae-ijąe Jednak do sprawy, czyli 
udawania na małym ATARI, sytu- 


* e 

acja wydaje się beznadziejna, ale 
chyba nie Jest az tak źle? Osobiście 
zetknąłem się z tą tematyką pod- 
czas pracy nad BugHunter-em Być 
może wyda się to dziwne, ale ten 
debugger jest swoistym emulato¬ 
rem ATARI XL na ATARI XL Tak. 
to nie pomyłka! Cl. którzy używali 
kiedykolwiek BugHunter-a wiedzą, 
ze wykonuje on każdy program na¬ 
prawdę. a co za tym Idzie niestrasz¬ 
ne mu np PLA. PHA i temu podob¬ 
ne Oczywiście wykonanie operacji 
na stosie Jest o tyle skomplikowa¬ 
ne. ze stos procesora Jest Jeden dla 
BH 1 dla śledzonego programu 
Stos procesora w ogolę Jest jeden' 
Zajmuje obszar pamięci od adresu 
S100 do adresu S1FF 1 nie może 
byc nigdzie Indziej Zwyczajne wv 
konanie np rozkazu RTS śledzone 
go programu mogłoby spowodować 
powrót z procedury BH 1 Jego zała¬ 
manie się 

Operacje na stosie to nie Jedyne 
niebezpieczne czynności, wykony 
wane przez procesor. Z naszego 
(autorów BH) punktu widzenia 
równie niebezpieczne są np wszel¬ 
kie STA. STX 1 STY Mało tego. nie¬ 


bezpieczne są wszelkie rozkazy 
które zmuszają procesor do opero 
wanla na pamięci' Przecież BH tak 
ze Jest gdzieś w pamięć! 1 nlechb\ 
tak procesor zechciał go "zopero 
wać" 

Szczerze mówiąc, należy jeszcze 
wspomnieć o rejestrach jednostki 
centralnej Tu także sprawa nte wy 
gląda zbyt dobrze Zarówno BH Jak 
1 śledzony program wykorzystują Je 
na swój sposób Z tym także trzeba 
coś zrobić. 

Jak widać z powyższego BugHun- 
ter Jest debuggerem. który pracuje 
nie na procesorze 6502. ale na 
pewnym Jego emulatorze, urucho¬ 
mionym pod kontrolą właśnie tego 
procesora Emulator można zresztą 
dopasowywać do potrzeb użytków 
nlka. wprowadzając dodatkowe pu¬ 
łapki. tzw turbo, czy tez regulować 
jego prędkość. 

Ze wszystkim tym kojarzy ml się 
Jeszcze jeden emulator na ATAR 
XL Jeden z bardzo znanych obe¬ 
cnie programistów, autor licznych 
gier 1 programów użytkowy h poka 
zywał ml kilka lat temu Jeden ze 
swoich pierwszych progr mów dla 
małego ATARI W tekście progr ar i 
ze zdumieniem zauważyłem proce¬ 
dury. służące do emulacji rozkazów 
proc esora Z 80 Dopiero po jakimś 
czasie domyśliłem się powodu, dla 
ktorego zostały tam umieszczone 
Po prostu, autor programu wcześ¬ 
niej pisywał na Spectrum Jak wi¬ 
dać. każdemu zdarza się "emulo¬ 
wać' 
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Podczas współpracy komputera ze stacją dysków 
bardzo często wykonywane są te same operacje Wiąże 
się to zwykle z wydawaniem DOS-owl tych samych po¬ 
leceń, co jest czasochłonne męczące i nudne. 

Plik wsadowy (ang batch) Jest to plik, zawierający rozkazy 
DOS-u, które (po Jednorazowym wywołaniu) są wykonywane 
kolejno przez system bez potrzeby Ingerencji użytkownika 

Zasada działania programu opiera się na utworzeniu włas¬ 
ne) tablicy sterownika edytora ekranowego, tzw handlera 
'E;" Różni się on od standardowego Jedynie wektorem obsłu¬ 
gi procedury GETT BYTE Przekazuje ona kolejne bajty zapl 
sanego tekstu (rozkazów DOS-u) tak. Jakby były wprowadza 
ne z klawiatury Jeżeli w tekście zamieścimy znak o kodzie 
125 (klawisz "<" z wciśniętym SHIFT) to po jego odczytaniu 
z bufora program wstrzyma swe działanie az do chwili naciś¬ 
nięci;: dowolnego klawisza Użycie w dowolnym momencie 
klawisza BREAK spowoduje przerwanie wykonywania się pli¬ 
ku wsadowego. Przykładowo, Jeżeli stworzymy taki plik 

DIR 

RUN E477* 

to w wyniku jego wykonania zostanie wyświetlony kata¬ 
log dysku, a po naciśnięciu dowolnego klawisza wyko¬ 
na stę procedura zimnego startu 

Po uruchomieniu programu BATCH FILE MAKER widać 
okienko zawierające cztery opcje: 

• Utworzenie tekstu 

Wybór tej opcji pozwala stworzyć nowy plik wsado¬ 
wy. Koniec redagowania pliku - kombinacja klawi 
szy CONTROL i 3 Naciśnięcie klawisza ESC spowo¬ 
duje opuszczenie okienka edycyjnego bez przyjęcia 
utworzonego tekstu. W górnej części okienka poją 
wlają stę Informacje dotyczące numeru wiersza, 
w którym znajduje stę kursor oraz rozmiar pozosta 
łej wolnej pamięci "Wolne’ Jest uaktualniane po 
każdorazowym zaakceptowaniu nowej lin! 

• Wgranie tekstu 

Ta opcja służy do wprowadzenia pliku wsadowego 
z urządzenia zewnętrznego, np ze stacji dysków. Po 
wczytaniu pliku możliwe Jest Jego redagowanie. 

• Nagranie pliku BATCH 

Z pomocą tej opcji można zapisać utworzony ciąg 
ozkazów na dowolnym urządzeniu zewnętrznym. 

• Powrot do systemu 

Opcja ta powoduje powrót do programu nadrzędnego 

Program obsług) znajduje się na szóstej stronic pamięci, 
a tekst zajmuje czwartą 1 piątą stronę Należy się więc wy¬ 
strzegać zmian w lym obszarze podczas pracy BATCH-a Bu 
for tekstu ma długość 512 bajtów. Jest to w większości przy¬ 
padków wielkość wystarczająca 

Aby obzymao samodzielny program maszynowy, zdatny do 
użycia pod kontrolą DOS-u lub COS u. trzeba się posłużyć 
programem Zgrywus-t- 7 IA fi/91 z fnoprawka i. TA H/9 Ii 


IJ 10550 REM *-’ 

mx 1002 REM : Batch File Haker 
IU 1004 REM : autor: L. Pasternak 
YY 1006 REM : (c) 1992 Tajemnice ATARI 

JP 1008 REM *-’ 

LK 1010 DATA FFFF0006B806FFFF0606AE06A2 
JN 1020 DATA FDE8E8E8BD1A03C945D0F68EA1 
BT 1030 DATA 06BD1B038D2A068DA306BD1C03 
VR 1040 DATA 8D2B068DA806A00EB9290699AF 
ET 1050 DATA 068810F7A9468DB306A9068DB4 
MR 1060 DATA 06A9AF9D1B03A9069D1C0360AD 
IE 1070 DATA FC02C91CD00CA9FF8DFC02A088 
GR 1080 DATA 84114CA006ADAE06CD7006D00C 
BN 1090 DATA AC6F06C8CCAD06900320A006AD 
IF 1100 DATA 0004A8C97DD018EE6F06D003EE 
VQ 1110 DATA 7006A2FFA511F0CFECFC02F0F7 
PM 1120 DATA 8EFC0230CCEE6F06D003EE7006 
IC 1130 DATA ADB60648ADB506489860A23DA9 
FV 1140 DATA 3D9D1B03A93D9D1C03600000E0 
DL 1150 DATA 02E102060600040000E002E102 
CF 1160 DATA BF8E008BE 297 4CBF8EA?012037 
SC 1170 DATA 8BA90085D6207r8C9004A90385 
FS 1180 DATA D620C18CA4D69848B92F8B85D2 
WG 1190 DATA B9338B85D3202C8B6810DE6CD2 
YM 1200 DATA 00F8FFD7508E8E9091A9A485D2 
SL 1210 DATA A98D85D3A000CAF015A006B1D2 
DO 1220 DATA C8C99BD0F9981865D285D290EA 
OH 1230 DATA E6D3B0E6A203B1D295CC9DDF97 
BT 1240 DATA C8CA10F5200C8DA200A5CF85D6 
JW 1250 DATA A4CEB1D081D420E48C8810F620 
QS 1260 DATA F48CC6D610EDA003B9CC0081D4 
EO 1270 DATA 20E48C8810F5200G8DA5CE85D6 
PC 1280 DATA A200A000BDF6 8B91D0E8C8BDF6 
AZ 1290 DATA 8B91D0C6CED0F6E8BDF68B91D0 
QM 1300 DATA 20F48CC6CFF008A203A5D685CE 
PU 1310 DATA D0D9E8E6CFE00790F3A004B1D2 
TS 1320 DATA 85CCC8B1D285CD84CE200C8DA0 
GL 1330 DATA 0084CFE6CEA4CEB1D2A4CFC99B 
EJ 1340 DATA P00FC940F00591D0C8D0E920F4 
WO 1350 DATA 8C4CD68B605152457C007C5A52 
VD 1360 DATA 43A200A00020EB8CA1D499CC00 
IS 1370 DATA C8C004D0F3200C8DA4CF20F48C 
XS 1380 DATA 88D0FAA200A00020EB8CA1D491 
XA 1390 DATA D0C8C4CE90F4F0F220008DC6CF 
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ID 1400 DATA 10E9A00020EB8CA1D4 9 9CC0099 
KO 1410 DATA DF97C8C004D0F0200C8D20E48C 
RS 1420 DATA 88D0FA60A6D6F00EC6D620708C 
PU 1430 DATA A900A891CAC891CA8A60A514C5 
DF 1440 DATA 14F0FCE6CAD002E6CB60AS14C5 
CE 1450 DATA 14 F0FCA5CAD002C6CBC6CA60A0 
CN 1460 DATA 03B9DF9799CC008810F7200C8D 
RC 1470 DATA A4D620F48C8810FA20C18C201B 
CK 1480 DATA 8DB023C90FD00CA5D6C903F0F1 
EQ 1490 DATA 20CE8C4C988CC90ED00AA5D6F0 
SP 1500 DATA E320D98C4C988CC90CD0D91860 
SZ 1510 DATA A4CE88B1D0498091D088D0F760 
UB 1520 DATA 20C18C20F48CE6D64CC18C20C1 
TP 1530 DATA 8C20008DC6D64CC18CE6D4D002 
OE 1540 DATA E6D560A5D4D002C6D5C6D460A5 
HI 1550 DATA D018692885D09002E6D160A5D0 
RB 1560 DATA 38E92885D0B002C6D160A5CCA6 
CŁ 1570 DATA CD18655885D08A655985D160A2 
LN 1580 DATA FF8EFC02ECFC02F0FBADFC028E 
ZC 1590 DATA FC022083F9C91CF00218603860 
JX 1600 DATA 18655885CA8A655985CBA514C5 
TR 1610 DATA 14F0FCA9CB8D2602A9918D2702 
DN 1620 DATA A90A8D180285D7A9008D190260 
MY 1630 DATA A514C514F0FCA90085D78D1802 
YQ 1640 DATA 600A084AC960B006E91FB00269 
PR 1650 DATA 600A286A6085D2A90085CC85CD 
HX 1660 DATA A20FF8980AA826D2A5CC65CC85 
CJ 1670 DATA CC26CDCA10F0D8A002A5CC20B9 
XN 1680 DATA 91A5CD4CC29105150149720135 
RV 1690 DATA 74776F727A656E69650074656B 
WD 1700 DATA 73747540376772616E69650074 
BY 1710 DATA 656B737475402E616772616E69 
ZU 1720 DATA 6500706C696B75002221342328 
QI 1730 DATA 40306F77726F7400646F007379 
YZ 1740 DATA 7374656D759B04150149720100 
WX 1750 DATA 2221342328000026292C25002D 
XA 1760 DATA 212B2532400000377269747465 
DN 1770 DATA 6E006279002C252F2E40082309 
YF 1780 DATA 0034616A656D6E696365002134 
TY 1790 DATA 2132299B021801C4ED012E617A 
KI 1800 DATA 77611A9B021801EC15022E617A 
IM 1810 DATA 77611A9B021102143D022E6100 
HŁ 1820 DATA 7065776E6F001F0008340F2E09 
FZ 1830 DATA 9B051501499F01226C61640003 
MY 1840 DATA 10101100019B051501499C0130 
CK 1850 DATA 6C696B007A62797400646C7567 
QY 1860 DATA 699B051501499C012275666F72 
XQ 1870 DATA 006A6573740070757374799B0B 
YY 1880 DATA 250191C00137696572737A1A00 
CS 1890 DATA 1010110000376F6C6E651A0015 
UT 1900 DATA 11129BA9108DD902A9038DDA02 
VN 1910 DATA A90085D4A9 9985D5A202 203 7 8B 


TX 1920 DATA A9008514A9FF8DFC02A613ADFC 
VE 1930 DATA 02C9FFD004E413F0F520FF8BA9 
IR 1940 DATA 00853F85404C038B3820A3924C 
GS 1950 DATA 1F8FA20320378BA9F4A2012036 
KO 1960 DATA 8D20E191905860208B919006A2 
QP 1970 DATA 0120378B1820A39230034C9D90 
SP 1980 DATA C0FFD007A900853F854060C088 
AN 1990 DATA F0034CD38FA5D8D002C6D9C6D8 
KZ 2000 DATA A001B1D888A202D1D8D001CA8A 
AT 2010 DATA 1865D885D89002E6D9A210A5D8 
IU 2020 DATA 38E9009D4 803A5D9E904 9D4 903 
EŁ 2030 DATA 4CAE90A210209991208B919003 
XS 2040 DATA 20FF8BA90420A3913057A90085 
WA 2050 DATA 3F8540A9079D4203A9009D4403 
SG 2060 DATA A9049D4503A9B99D4803A9009D 
KX 2070 DATA 490320A091C088F06798302EA0 
VD 2080 DATA A0B90604D90606D0278810F5A9 
KI 2090 DATA 009D4403A9049D4503A9009D48 
SC 2100 DATA 03A9029D490320A091C088F03C 
QE 2110 DATA 9830034C9A904C6E91A9001869 
GI 2120 DATA B99D4403A90469009D4503A947 
AB 2130 DATA 9D4803A9019D490320A091C088 
IA 2140 DATA F0059810D730D8BD48031869B9 
GL 2150 DATA A8BD490369009006BC4803BD49 
KM 2160 DATA 03489818690085D868690485D9 
ZI 2170 DATA A000A99B91D8A90085CEA90485 
IL 2180 DATA CFA000B1CEC99BF05 2C8C02 3 90 
IF 2190 DATA F5981865CE85CE9002E6CFA6D8 
LX 2200 DATA 86CCA4D984CDE8D001C886D886 
SD 2210 DATA D284D984D3C006B045A200A1CC 
SO 2220 DATA 81D2A5CDC5CFD006A5CCC5CEF0 
SL 2230 DATA 13A5D2D002C6D3C6D2A5CCD002 
UV 2240 DATA C6CDC6CC4C5A90A99BA00091CE 
IM 2250 DATA 983865CE85CE9002E6CFA5D8C5 
IC 2260 DATA CEA5D9E5CFB0924C118F209991 
QO 2270 DATA A900853F8540A20720378B201B 
IG 2280 DATA 8D4CFF8BBD4803853F1869008D 
BY 2290 DATA AD068DB706BD4903854069048D 
XD 2300 DATA AE068DB806ADB706D003CEB806 
PX 2310 DATA CEB7064C9991A53F0540D00BA2 
SF 2320 DATA 0820378B201B8D4CFF8BA20420 
ZZ 2330 DATA 378BA91CA20220368D20E19190 
FP 2340 DATA 0160208B91900320FF8BA90820 
OA 2350 DATA A3913065A90B9D4203A9009D44 
HF 2360 DATA 03A9069D4503A9B99D4803A900 
DV 2370 DATA 9D490320A0913047A9009D4403 
OF 2380 DATA A9049D4503A53F9D4803A5409D 
ZF 2390 DATA 490320A091302E209991302920 
MO 2400 DATA 8B91B00160A2014C378BA20520 
JG 2410 DATA 378B201B8D4820FF8B68C92DF0 
GA 2420 DATA 04C90CD00620FF8B6868684C99 
KX 2430 DATA 91A900207C8D208B919005A201 
HY 2440 DATA 20378BA20620378B209991201B 
EV 2450 DATA 8D4CFF8BADC097C945F004C953 
ER 2460 DATA D001601860A210A90C9D42034C 
QK 2470 DATA 56E4A2109D4A03A9C09D4403A9 
FD 2480 DATA 979D4503A9039D4203D0E74820 
OB 2490 DATA C291684A4A4A4A290F0910996E 
QD 2500 DATA 8E886008489848A000B1CA4980 
CX 2510 DATA 91CAA5D78D180268A8682860A2 
ID 2520 DATA 0086DC86D6BDC0979DCF97E8C9 
QG 2530 DATA 9BD0F5A6D6BDCF97C99BF01320 
WR 2540 DATA 6B8DA0038C1802A00091CA2063 
IW 2550 DATA 8CE6D6D0E4201B8DB03DA6DCD0 
LS 2560 DATA 21E6DCC90CF01BC934F0174820 
NL 2570 DATA 508CD004684C3892A000A90091 
JQ 2580 DATA CAA99B9DCE97D0EAC90CD01DA5 
WR 2590 DATA D618F0CD08A200BDCF979DC097 
MK 2600 DATA E8C99BD0F52808205D8D20FF8B 
PA 2610 DATA 2860AAC934D00C20508CF08FA9 
FB 2620 DATA 9B9DCE97D088BD51FBC92EF01F 
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MZ 2630 DATA C92AF01BC9309095C93A90138A 
KG 2640 DATA 0940AABD51FBC93AF008C94190 
FG 2650 DATA 82C95BB010A6D6E00FB00A9DCF 
VA 2660 DATA 97A99B9DD097D0C84C0E92900D 
RD 2670 DATA A99B8D0004A90085D8A90485D9 
ZM 2680 DATA ADC09748ADA4978DC097209991 
JT 2690 DATA A90420A3911009688DC0976868 
CE 2700 DATA 4C6E91A20920378BA00084DC84 
DX 2710 DATA DBC884DA84DDA90085DE85CEA9 
AE 2720 DATA 0485DF85CFA90AA20220368D20 
VS 2730 DATA B694209695A4DAA5DB207C8DA9 
KR 2740 DATA C885CCA90185CD200C8DA002B9 
UW 2750 DATA 6E8E91D08810F8A5D838E90085 
AL 2760 DATA CCA5D9E90485CDA9FF38E5CCA8 
NW 2770 DATA A901E5CD207C8DA9D485CCA901 
QP 2780 DATA 85CD200C8DA002B96E8E91D088 
VN 2790 DATA 10F8A5DE85D2A5DF85D3A90A85 
YK 2800 DATA CCA90285CD200C8DA201A5D9C5 
UY 2810 DATA D3D012A5D8C5D2F0269024E4DD 
RG 2820 DATA D0062093944CBB93E4DDD00620 
IV 2830 DATA 93944CBB93A000B1D2C99BF026 
MD 2840 DATA 206B8D91D0C8D0F2E4DDD00620 
QE 2850 DATA 93944C9E93A900A891D0C8C024 
DX 2860 DATA 90F920F48CE8E009B01D90EC98 
UO 2870 DATA 3865D285D29002E6D3A90091D0 
SR 2880 DATA C8C02490F920F48CE8E0099095 
FN 2890 DATA AEFC02E8F0FACA8A293FC91CD0 
YX 2900 DATA 14A9FF8DFC0248205D8D20FF8B 
DC 2910 DATA 68A8688DC0979860C90CD05DA9 
AJ 2920 DATA FF8DFC022083F920C194900620 
KC 2930 DATA 56F54CF89220AA96981865CE85 
XX 2940 DATA CCA5CF6900C5D99021D008A5CC 
MY 2950 DATA C5D89019F017A6D9A4D8C8D001 
UT 2960 DATA E88AC906B0D284D886D9A99BA2 
SR 2970 DATA 0081D8204896A5CA38E5DC85CA 
QF 2980 DATA B002C6CBA90085DC2096954CF8 
WW 2990 DATA 92A210A9079D4203A9009D4803 
MY 3000 DATA 9D49032056E41004984CD693A0 
NI 3010 DATA FFC8C009B01FD9A597D0F6980A 
TY 3020 DATA A8B9AE978D7A94B9AF978D7B94 
HY 3030 DATA 20799490032056F54CF892A6DC 
XJ 3040 DATA E023B0069DE39720B5964CF892 
QW 3050 DATA A000B9E397206B8D91D0C8C024 
CS 3060 DATA 90F3A0FFC8B1D2C99BD0F99838 
EQ 3070 DATA 65D285D29002E6D360A024A920 
KP 3080 DATA 99E3978810FA60A024B9E397C9 
LJ 3090 DATA 20D0038810F6C8C884D29848A0 
TC 3100 DATA 00B1CEC99BF005C8C02390F5C8 
TZ 3110 DATA A5D885CCA5D985CDC4D2D0034C 
OE 3120 DATA 8495B04AA5D284D238E5D21865 
WC 3130 DATA D885D29002E6D9A5D9C906B02D 
OK 3140 DATA A5D285D8A5D985D3A200A1CC81 
BG 3150 DATA D2A5CDC5CFD006A5CCC5CEF062 
GD 3160 DATA A5D2D002C6D3C6D2A5CCD002C6 
RI 3170 DATA CDC6CC4C1295A5CD85D9683860 
EX 3180 DATA 9838E5D285D2A5D838E5D285D8 
NJ 3190 DATA B002C6D9A5CE481865D285D2A5 
LU 3200 DATA CF48690085D3A200A1D281CEE6 
WO 3210 DATA CED002E6CFE6D2D002E6D3A5D3 
AK 3220 DATA C5CD90EAD008A5D2C5CC90E2F0 
MB 3230 DATA E06885CF6885CE68A888A99B91 
BI 3240 DATA CE883006B9E3974C89951860A0 
OZ 3250 DATA 00B1CEC99BF00699E397C8D0F4 
EK 3260 DATA A920C024B00699E397C890F660 
GY 3270 DATA 20CI94900160A6DDCAF020C6DD 
XS 3280 DATA A514C514F0FCA5CA38E92885CA 
LX 3290 DATA B031C6CBD02DA90485DFA90085 
UO 3300 DATA DE4CFE95A200203F96203F96A5 
ZF 3310 DATA DFC90490E7D006A5DEC900F00C 
VG 3320 DATA A1DEC99BD0E9E6DED002E6DFA6 
RP 3330 DATA DAA5DBF0058AD002C6DBCAF002 


Ul 3340 DATA 86DAA5CED002C6CFC6CEA5CFC9 
CR 3350 DATA 04B008A90085CEE6CFD016A5CE 
SV 3360 DATA D002C6CFC6CEA000B1CEC99BD0 
UV 3370 DATA E2E6CED002E6CF2096951860A5 
LK 3380 DATA DED002C6DFC6DE6020C1949001 
AE 3390 DATA 6020AA96A5CFC5D99009188898 
MZ 3400 DATA 65CEC5D8B047E6DAD002E6DB20 
Al 3410 DATA 09490016020AA96981865CE85 
UC 3420 DATA CE9002E6CFA6DDE0089015A0FF 
FF 3430 DATA C8B1DEC99BD0F9983865DE85DE 
SO 3440 DATA 9017E6DFD013E6DDA514C514F0 
ML 3450 DATA FCA5CA18692885CA9002E6CB4C 
ZT 3460 DATA 3A96A0FFC8B1CEC99BD0F9C860 
EN 3470 DATA A5DCC923B018E6DCE6CAD002E6 
DR 3480 DATA CB1860A5DCF00AC6DCA5CAD002 
CY 3490 DATA C6CBC6CA1860A4DCF0FAA92099 
HD 3500 DATA E2974CC596A5CFC5D99006A5CE 
PX 3510 DATA C5D8F0E6A000B1CEC99BF003C8 
OY 3520 DATA D0F7204D979010200D97E6D8D0 
SE 3530 DATA 02E6D9A99BA00091D860A000B1 
CG 3540 DATA CEC99BF003C8D0F7C884D2204D 
MY 3550 DATA 979005A20018900FA200B1CEC8 
RP 3560 DATA C99BF0069DE397E8D0F38A6900 
BA 3570 DATA 48A9209DE397E8E02490F8A5D8 
GG 3580 DATA 85CCA5D985CD4C4295981865CE 
OU 3590 DATA 85CCA5CF6900C5D99004A5CCC5 
GM 3600 DATA D86020B694A5D885CCA5D985CD 
CR 3610 DATA A901484CF994A5DCC923B02BA4 
EK 3620 DATA DCB9E49799E397C8C02390F518 
KD 3630 DATA 60A5DCC923B016A022B9E397C9 
FI 3640 DATA 20D00DA021B9E39799E49788C4 
BX 3650 DATA DC10F518604B1C1D1F1E7E9C9D 
FO 3660 DATA FEFFB1954896B596C596D596E1 
ZY 3670 DATA 96609771978697443A2A2E4241 
EB 3680 DATA 549B0000000000002020202020 
XK 3690 DATA 2020202020202020202020202C 
MT 3700 DATA 252F2E 
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W TA 7191 w opisie programu '100 %’ autor pisze 
'Po wgraniu loadera BLC, COS-a lub DOS-a należy 
wgrać 1NTER.COM' Co to Jest INTERCOM? Na czym 
polega jego działanie? Gdzie ewentualnie można go 
zdobyć? 

Przepraszamy miłych czytelników za nieści¬ 
słość w opisie programu Autor zatytułował swój 
program "100 %", co można rozumieć Jako aluzję 
do widniejącego często na dyskietkach zapewnie¬ 
nia "100 % error free", czyli w stu procentach 
wolne od usterek Jednocześnie dostarczony na 
dyskietce program w wersji binarnej nosił nie 
wiedzieć (a może wiedzieć) czemu nazwę ‘IN¬ 
TER COM" Nazwa ta zupełnie niepotrzebnie 
ła się do opisu Mowa Jest o Jednym 
1 tym samym programie 


Proszę o radę. Jak przerobić grę na 'wieczne życie' 
przy pomocy Bug Huntera. 

Program Bug Hunter, Jak sama nazwa (w wol¬ 
nym tłumaczeniu: Łowca byków) wskazuje, służy 
do poszukiwania błędów w programach (w domy¬ 
śle własnych) Jest więc wyposażony w rozliczne 
mechanizmy do bezkonfliktowej współpracy ze 
śledzonym programem, o Ile taki program się te¬ 
mu nie sprzeciwia. Brak w Bug Hunterze nato¬ 
miast typowych dla hackersklch narzędzi opcji 
do łamania czy omijania zabezpieczeń. Bug Hun¬ 
ter pracuje w przekonaniu, że używa go autor 
śledzonego programu, który wie co 1 gdzie Jego 
program powinien robić, 

Bug Hunter po wczytaniu 1 uruchomieniu prze¬ 
nosi się na początek wolnej pamięci zapisany 
w słowie MEMLO, 1 zwiększa wskaźnik MEMLO 
tak. by ochronić się przed zmazaniem. Wczytana 
następnie gra z reguły anektuje całą pamięć, roz¬ 
mieszcza się bez zwracania uwagi na MEMLO, 
niszcząc kod BH W takiej sytuacji przerwanie 
wywołane przez SHIFT/BREAK skacze gdzieś, 
gdzie kiedyś był debugger. na ogół w maliny... 

Można w pewnym zakresie wpływać na miejsce 
ulokowania BH, ustawiając przed jego załadowa¬ 
niem MEMLO na stosowną wartość z zakresu 
$480 $4800 (przy DOS-ie lub COS-le lepiej nie za¬ 
puszczać się w obszar poniżej dotychczasowego 
MEMLO) 

Testowany program najkorzystniej Jest wczytywać 
segmentami przez Flle/Get błock, gdyż wtedy BH blo¬ 
kuje wczytywanie programu w konfliktowe obszary pa¬ 
mięci 

Poprawianie cudzych programów najlepiej pozostaw¬ 
my Ich autorom. 


mmm 
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Czy w programie 'Easy Come' z TA 4/91 nie ma 
błędu? Program przekopiowany z Jego pomocą nie 
daje się uruchomić. 

Nazwa programu odwołuje się do znanego przy¬ 
słowia ‘Easy come. easy go*, czyli po naszemu 
‘Łatwo przyszło, łatwo poszło". Dość dobrze ilu¬ 
struje ono zalety tego programu, który pozwala 
co prawda odczytać uszkodzony plik, ale nie 
gwarantuje poprawności odczytanych danych 
Prawie zawsze odbiegają one od swego pierwo¬ 
wzoru. bo gdyby było inaczej, to dałyby się od¬ 
czytać bez kombinowania. Wspomniany program 
nadaje się do odzyskania tekstu ASCII, po wczy¬ 
taniu do edytora udaje się niekiedy ‘na oko’ po 
prawić treść listu lub tekst źródłowy programu 
W przypadku programu maszynowego Jest to 
z reguły niemożliwe, przekłamany program nale¬ 
ży uznać za stracony. 

Czasem wada taśmy Jest niewielka 1 po wielu 
próbach wadliwy fragment daje się odczytać. 
W takim przypadku godny polecenia wydaje się 
program "100 %* z TA 7/91, który pozwala na 
ponawianie odczytu popsutego odcinka taśmy 
bez potrzeby cofania do początku pliku Ten 
program, w przeciwieństwie do "Easy Come' 
daje szansę bezbłędnego odczytania pliku. 


(Jbw) 


(Jbw) 
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ROBBO wspaniała gra zręczno- 
ściowo-logiczna; Cena 25.000 zł. 
MISJA, FRED - zestaw dwóch gier 
żyznościowych z doskonałą muzyką; 

- Zmagania komandosa w tajnej 
MISJI, 

Wędrówka z FREDEM przez 
pełną zagadek i niebezpieczeństw 
krainę Cena zestawu 35.000 zł. 
LASŁRMANIA, 

ROBBO KONSTRUKTOR 

- hfckiowna gra logiczna polegają¬ 
ca na pokonaniu labiryntu komnat 
przy pomocy umiejętnego sterowa¬ 
nia promieniem lasera, 

- Program użytkowy po/walający 
na tworzenie gotowych, samodziel¬ 
nie działających gier. 

Cena zestawu 35.000 zł. 

ALTOM AT PERKUSYJNY - dosko¬ 
nały do tworzenia "muzyczek" kom¬ 
puterowych. Sprzedawany wraz 
z instrukcją ueytkowmka. 

Cena programu 39.000 zł. 

SAPt R najnowsza gra strategicz¬ 
na Patrz opis wewnątrz numeru. 
Cena gry: 35 000 zł 
PANTHER - wielofunkcyjny, całoe 
kranowe edytor tekstów z pakietem 
dmerów pozwalających drukować po 
polsku na wszystkich popularnych 
drukarkach. Cena pakietu 35.000 zł 


A.D.2044 - wspaniała gra przygo¬ 
dowa. Dokładny opis wewnątrz 
numeru Cena gry 35.000 zł 

CHAOS MUSIC COMPOSER - Na¬ 
reszcie ATARI potrafi grać muzy¬ 
kę Pakiet zawiera program do 
komponowania, moduł odtwarzają¬ 
cy (można go dołączyć do własnych 
programów) oraz wyczerpującą in¬ 
strukcję użytkownika. 

Cena pakietu 39.000 zł 


Najlepszy na "małe" Atan zestaw do 
programowania w języku asemblera. 
W jego skład wchodzą 


• QUICK ASSEMBLER -zintegro¬ 
wany pakiet edytora, asemblera i mini 
debugera 

• BUG HUN ITR - nowoczesny de- 
buger całoekranowy 

• XL PTI I ND - edytor tekstów, ta¬ 
bela kodów ASCII, ekranowych 
i klawiatury, kalkulator i monitor 
pamięci 

• Zestaw procedur bibliotecznych uła 
twiających naukę programowanta 

• Podręcznik zawierający instrukcje 
do wszystkich wymienionych pro¬ 
gramów oraz krótki kurs progra¬ 
mowania 

Cena zestawu 59 000 zł. 


Wymiemone miej programy me powsta¬ 
ły w naszej firmie. Zachęcamy jednak 
Państwa do ich zakupu 


MIECZE YALDGIRA - przygodo¬ 
wa gra fantasy z doskonałą muzy¬ 
ką. Cena gry 36 000 zł. 

RODERIC -rycerz przemierzają¬ 
cy labirynt komnat w starym za¬ 
mczysku Cena gry 36.000 zł. 

BATTLE SHIP - kto z nas me grał 
w "okręty”? Tutaj zasady te same, 
lecz przeciwnik i oprawa znacznie 
lepsza. Cena 36.000 zł. 

TacTir - gra przygodowa 
Cena 37.000 zł. 


MARSA W TETRIS - gra logiczna. 
Cena 37.000 zł. 

KOLONY - gra ekonomiczna. 

Cena 37 000 zł 

GEOGRAFLA - program edukacyjny 
obejmujący geografię gospodarczą 
Polski Cena 37.000 d 

ORTOGRAFIA - któż me ma z mą kło¬ 
potów? Ten program może pomóc 
i wiele nauczyć. Cena 35.000 zł. 

YIDtOGRAF - narzędzie do two¬ 
rzenia czołówek filmów VIDK) 
wraz z tn. trukcją użytkownika. 

Cena 40.000 zł. 


Uregulowanie należności następuje przy 
odbiorze przesyłki Zamówienia które 
powinny zawierać wyszczególnienie ro¬ 
dzaju nośnika (fcjsęia lub dyski oraz do- 
ądiiy -ima i^ccgc. 


kierować do: 


L.K. AVALON 

skr. poczt. 46 
38-100 Strzyżów 
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